**************************************************************** 
* 

* CP/M vers 2.2 Cold Start Loader. 
* 

* The following routines will boot CP/M from the Disk 

* Jockey 2D Rev. B, or from the Disk Jockey Hard disk 

* controller. 



* Floppy boot: 

* The cold boot loader (track 0, sector 1) is loaded into 
RAM on the controller by the cold boot routine in the 
firmware. This cold boot loader will start loading the 
CCP from track 0, sector 5 and will finish up with the 
last part of the CBIOS on track 1 sector 7. 



* During a warm boot sectors 1, 2, and part of 3 will be 

* loaded from track 1. Track loading is unaffected. 



* 

* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



track 



k 


sector 


sysgen 


load 


order 





1 


900 


ff00 


1 





2 


980 









3 


a00 









4 


a80 









5' 


b00 


9500 


2 





6 


b80 


9580 


13 





7 


C00 


9600 


3 





8 


c80 


9680 


14 





9 


d00 


9700 


4 





10 


d80 


9780 


15 





11 


e00 


9800 


5 





12 


e80 


9880 


16 





13 


f00 


9900 


6 





14 


f80 


9980 


17 





15 


1000 


9a00 


7 





16 


1080 


9a80 


18 





17 


1100 


9b00 


8 





18 


1180 


9b80 


19 





19 


1200 


9c00 


9 





20 


1280 


9c80 


20 





21 


1300 


9d00 


10 





22 


1380 


9d80 


21 





23 


1400 


9e00 


11 





24 


1480 


9e30 


22 





25 


1500 


9f00 


12 





26 


1580 


9f30 


23 



Name 

Boot loader 
Unused 



CCP 



BDOS 



Track 1 is recorded in double 
1024 bytes per sector. 



1 
1 
1 
1 
1 
1 
1 
1 



1 

2 
3 
4 
5 
6 
7 
8 



density format. There are 



CBIOS (@ ab00h) 



1600 


a000 


4 


la00 


a400 


1 


le00 


a800 


5 


2200 


ac00 


2 


2600 


b000 


6 


2a00 


b400 


3 


2e00 


b800- 


■ M?z 7 


3200 


bc00 





Unused 



Note that the interleave sequences for loading tracks and 1 
are different. This difference was designed so that the 
boot sequence could be done in 4 disk revolutions since the 
2D Mod. B can not load consecutive sectors off of the disk. 

Three smart* s^rtnrs (i-rpmie . «er«-l-rjT-c: 9 +-r» d\ Viaa/o hppn 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 

* 
* 
* 
* 







* provided for a more advanced boot loader at a later date. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



Hard boot (M10, M20, M26) : 

The cold boot loader (track 0, sector 1) is loaded into 
RAM at either 0100h or the 2DB ' s RAM depending on whether 
this loader is assembled with a 2DB or not. This cold 
boot loader will start loading the CCP from track 0; 
sector 2 and will finish up with the last part of the 
CBIOS on track sector 21. 



track 



























sector 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



sysgen 
900 
b00 
d00 
f00 
1100 
1300 
1500 
1700 
1900 
lb00 
ld00 
lf00 
2100 
2300 
2500 
2700 
2900 
2b00 
2d00 
2f00 
3000 



load order 



fc00 
9500 
9700 
9900 
9b00 
9d00 
9f00 
al00 
a300 
a500 
a700 
a900 
ab00 
ad00 
af00 
bl00 
b300 
b500 
b700 
b900 



1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

2 



Name 

Cold boot 
CCP 



BDOS 



CBIOS 



Partial load 
Unused 



The warm boot load sequence starts at track 0, sector 2 
and goes straight through to sector 12. There is still 
plenty of room left in this loader for more advanced 
things like sector interleaving although this is hardly 
necessary on a hard disk. 



************************************ ************************, 



* 
* 
* 
* 
* 

* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

;*** 



rasize equ 

bias equ 

ccp equ 

bios equ 

cboot equ 

loaddr equ 

retries equ 



(msize-20)*1024 

2500h+bias 

ccp+1600h 

bios 

ccp 

10 



.-Memory size of target CP/M 
; Memory offset from 20k system 
; Console command processor 
; CBIOS address 
;Cold boot address for CP/M 
;Load address for floppy 
;Maximum # of disk retries 






***************************************************************** 

* * 

* The following equates set up the relationship between the * 

* 2D floppies and the Hard Disk Controllers. * 

* ^ 

***************************************************************** 



first 



equ 



maxhd equ 
max flop equ 




= Floppies are A-D drives and 

Hard Disk are E-P 

1 = Hard Disks are A-L drives and 

Floppies are M-P 
Set to number of hard disks 
Set to number of floppies 



***************************************************************** 



* The following equates are for the Diskus Hard disk if wanted. 

* * 

************************************************************* 





if 


(maxhd ne 


hdorg 


equ 


50h 


hdstat 


equ 


hdorg 


hdcntl 


equ 


hdorg 


hddata 


equ 


hdorg+3 


hdfunc 


equ 


hdorg+2 


hdcmnd 


equ 


hdorg+1 


hdreslt 


equ 


hdorg+1 


retry 


equ 


2 


tkz 


equ 


1 


opdone 


equ 


2 


coraplt 


equ 


4 


tmout 


equ 


8 


wfault 


equ 


10h 


drvrdy 


equ 


20h 


indx 


equ 


40h 


pstep 


equ 


4 


nstep 


equ 


0fbh 


hdrlen 


equ 


4 


secln 


equ 


512 


wenabl 


equ 


0fh 


wreset 


equ 


0bh 


scenbl 


equ 


5 


dskclk 


equ 


7 


radir 


equ 


0f7h 


null 


equ 


0fch 


idbuf f 


equ 





isbuff 


equ 


a 


rsect 


equ 


l 


wsect 


equ 
endif 


5 



i) and first ;Want Hard Disk included ? 

Hard Disk Controller 
•Hard Disk Status 
•Hard Disk Control 
'Hard Disk Data 
rHard Disk Function 
•Hard Disk Command 
'Hard Disk Result 

Retry bit of result 
r Track zero bit of status 
rOperaction done bit of status 

Complete bit of status 

Time out bit of status 
•Write fault bit of status 
r Drive ready bit of status 

Index bit of status 
•Step bit of function 

Step bit mask of function 

Sector header length 

Sector data length 

Write enable 
r Write reset of function 

Controller control 
•Disk clock for control 
'Direction mask for function 
tNull command 

Initialize data command 

Initialize header command 
'Read sector command 
rWrite sector command 



• 

• 



***************************************************************** 
* * 

* 
* 
***************************************************************** 






* The following equates are for the Disk Jockey 2D/B if wanted. 
* 





if 


max flop ne 


origin 


equ 


0f800h 


djram 


equ 


origin+400h 


tkzero 


equ 


origin+9h 


trkset 


equ 


origin+0ch 


setsec 


equ 


origin+0fH 


setdma 


equ 


origin+12h 


dread 


equ 


origin+15h 


dmast 


equ 


origin+24h 


status 


equ 


origin+27h 


dskerr 


equ 


origin+2ah 


setden 


equ 
endif 


origin+2dh 


if 


first 






if 


max flop ne 


boot 


equ 
else 


djram 


boot 


equ 

endif 

else 


0100h 


boot 


equ 

vnri i f 


djram+0300h 



;Orgin of DJ 2D Mod B PROM 

;Disk Jockey 2D Mod B routines 

; Track seek 

•Set track 

;Set sector 

;Set DMA address 

;Read sector 

;Get DMA address 

;Disk status 

; Flash error light 

;Set density 



; Define start address if hard disk 

;If floppy is there then use its RAM 

; Otherwise start at 0100h 

; Define start address if floppy 
; Upper quarter of floppy RAM 



offset equ 



900h-boot 



;DDT offset 



***************************************************************** 

*'■■■" * 

* Cold Boot loader for Discus M10, M20, or M26. * 

* * 

***************************************************************** 






; first = 1 is hard disk 



;Set up stack at end of this sector 
;B = sector count, C = sector # 
;Load sector 20 into CCP 
destination of move 
; Source of move 

;Get a byte of source 

;Move it 

; Bump destination 

; Bump source 

;A11 done with this page ? 

; Initial DMA address 

;B = sector count, C = sector # 

;Go to CP/M 

; Save sector and count 



;Get DMA address (self modifying) 

; Storage for previous DMA address 

; Offset to new DMA address 

;Add in offset, HL — new DMA address 

7 Save new DMA address 

; Attempt a read 

; Recover sector number and count 

• B = count, C = number 

; Update sector count 

;A11 done ? 

; Continue reading 

*************************** * * ************************************ 

* * 

* Rdhd does the actual read from the controller, the DMA * 

* address and sector # have already been set up. * . 

* * 

***************************************************************** 



b, retries* 100h+l .; Maximum # of attempts 

rSave error count 
; Attempt the read 
; Restore the error count 
; Return if no error 
; Update error count 
;Try again if not to many errors 
; Dynamic error halt 



; Prepare the sector header image 

; Error exit 

- Rpad sector command 





if 


first 




org 


boot 


boothd 


lxi 


sp.cstkhd 




lxi 


b, l*100h+20 




call 


clodhd 




lxi 


h,ccp+le00h 




lxi 


d, ccp 




mvi 


c,0 


cmovhd 


ldax 


d 




mov 


m, a 




inx 


h 




in'x 


d 




dcr 


c 




jnz 


cmovhd 




lxi 


h,ccp-200h 




shld 


cdmahd 




lxi 


b,18*100h+2 




call 


clodhd 




jmp 


cboot 


clodhd 


push 


b 




mov 


a, c 




sta 


hdsec 




lxi 


h,ccp-200h 


cdmahd 


equ 


§-2 




lxi 


d,200h 




dad 


d 




shld 


cdmahd 




call 


crdhd 




pop 


b 




dcr 


b 




rz 






inr 


c 




jmp 


clodhd 



crdhd 


lxi 


b, retri 


crhd 


push 


b 




call 


hdread 




pop 


b 




rnc 






dcr 


b 




jnz 


crhd 




Ump 


? 


hdread 


call 
re 


hdprep 




mvi 


a . rsect 



# 



out 


hdcmnd 


call 


process 


re 




xra 


a 


out 


hdcmnd 


mvi 


b, secln/4 


lhld 


cdmahd 


in 


hddata 


in 


hddata 


rtloop in 


hddata 


mov 


m,a 


inx 


h 


in 


hddata 


mov 


m,a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m,a 


inx 


h 


dcr 


b 


jnz 


rtloop 


ret 




process in 


hdstat 


mov 


b,a 


ani 


opdone 


jz 


process 


mvi 


a,dskclk 


out 


hdcntl 


in 


hdstat 


ani 


tmout 


stc 




rnz 




in 


hdreslt 


ani 


retry 


stc 




rnz 




xra 


a 


ret 




hdprep in 


hdstat 


ani 


drvrdy 


stc 




rnz 




mvi 


a, isbuf f 


out 


hdcmnd 


mvi 


a, null 


out 


hdfunc 


xra 


a 


out 


hddata 


out 


hddata 


mvi 


a,0 


hdsec equ 


$-1 


out 


hddata 


mvi 


a,80h 


out 


hddata 


mvi 


a,dskclk 


out 


hdcntl 


mvi 


a f wenabl 


out 


hdcntl 


ret 





; Process the read 

; Error exit 

.•Pointer to data buffer 

; Number of bytes to read 
;Get destination of data 
;Two dummy data bytes 

•Move four bytes 
; Byte one 

; Byte two 



; Byte three 



; Byte four 



; Update byte count 



;Wait for command to finish 



;Turn on Disk Clock 



; Timed out ? 



;Any retries ? 



•No error exit 



; Is Drive ready ? 



.•Initialize pointer to header buffer 



; Select drive A 

;Form head byte 
; Form track byte 
; Form sector byte 



;Form Key 

;Turn on Disk clock 

; Write enable on 



org 



boothd+200h-2 



cstkhd equ 
dw 

else 



boothd 



; first = is floppy disk 



***************************************************************** 

* * 

* Cold boot loader for the Disk Jockey 2D Revision B controller * 

* * 
***************************************************************** 



org 



boot 



t0boot 


mvi 


a, 5-2 


newsec 


equ 


$-1 




inr 


a 




inr 


a 




cpi 


27 


trksiz 


equ 


$-1 




jc 


nowrap 




jnz 


tlboot 


exit 


equ 


$-2 




sui 


27-6 


backup 


equ 


$-1 




lxi 


h,loaddr-80h 


nxtdma 


equ 


$-2 




shld 


newdma 


nowrap 


sta 


newsec 




mov 


c, a 




call 


setsec 




lxi 


h,loaddr-100h 


newdma 


equ 


$-2 




lxi 


d,100h 


secsiz 


equ 


$-2 




dad 


d 


nowrp 


shld 


newdma 




mov 


b,h 




mov 


c,l 




call 


setdma 




lxi 


b, retries*100 


nxtrty 


equ 


$-2 


fread 


push 


b 




call 


trkset 




call 


dread 




pop 


b 




jnc 


t0boot 




dcr 


b 




jnz 


fread 




jmp 


dskerr 


tlboot 


lxi 


h , cboot 




shld 


exit 




mvi 


c,l 




call 


setden 




xra 


a 




sta 


newsec 




mvi 


a, 8 




sta 


trksiz 




dcr 


a 




sta 


backup 




lxi 


h,loaddr+0700 




shld 


newdma 




lxi 


h,loaddr+0300 




shld 


nxtdma 




lxi 


h,2048 




shld 


secsiz 



; First sector - 2 

; Update sector # 

;Size of track in sectors + 1 

;Skip if not at end of track 
;Done with this track 

; Back up to sector 6 

; Memory address of sector - 100h 

;Save the updated sector # 



• 



;Set up the sector 

; Memory address of sector 



100h 



.•Update DMA address 

;Save the updated DMA address 

;Set up the new DMA address 



?Set up the proper track 
;Read the sector 

; Continue if no error 

;Keep trying if error 

rToo many errors, flash the light 

;We jump to cboot next time 

; Select double density 

; First sector - 2 

;Size of (logical) track + 1 

; Number of sectors to back up 

h,loaddr+0700h ;DMA start address for first revolution - 2048 

newdma 

h,loaddr+0300h ;DMA start address for second revolution - 2048 

; Difference between DMA addresses 



m 
m 



• 



lxi h, retries* 100*1+1; Maximum # of errors, track # 

shld nxtrty 

jmp t0boot ;Go load in track 1 

endif 

end 



• 



# 

m 
m 



*************************************************************** 

* * 

* Cbios for CP/M Ver 2.2 for Disk Jockey 2D Mod. B * 

* controller. Handles diskettes with sector sizes of 128 * 

* bytes single density, 256, 512, 1024 bytes double * 

* density. There are conditional assemblies for the * 

* Diskus Hard Disk Controller. * 

* " * 

* Note: The system diskette (drive A:) has to have 1024 * 

* byte sectors in order for the cold and warm boot * 

* loaders to work. Be sure to format all new * 

* system diskettes with 1024 byte sectors . The * 

* system diskette can be either single or double * 

* sided. The sector size on normal (non A: drive) * 

* diskettes can be 128, 256, or 1024 bytes in * 

* either single or double density. * 

* * 

* Software engineering, Morrow Designs 11/81 * 

* * 

***************************************************************** 

title '*** Cbios For CP/M Ver. 2.2 ***' 

revnum equ 29 ; Cbios revision number 2.9 

cpmrev equ 22 ;CP/M revision number 2.2 

***************************************************************** 

* The following equates define the console and printer * 

* environments . * 
***************************************************************** 

***************************************************************** 

* '■■■'■'.■* 

* Define the console driver to be used. * 

* * 

* contyp is: Nothing, used for patching to PROM's. * 

* 1 Provide for 128 bytes of patch space. * 

* 2 Multi I/O or Decision I driver. * 

* 3 2D/B driver. * 

* * 

***************************************************************** 

contyp equ 2 

**************************************** * * ***** * * * *************** 

.* * 

* Define the printer driver to be used. * 

* * 

* lsttyp is: Nothing, used for patching to PROM's. * 

* 1 Provide for 128 bytes of patch space. * 

* 2 Multi I/O serial, no protocol. * 

* 3 Multi I/O serial, CTS protocol. * 

* 4 Multi ■I/O serial, DSR protocol. * 

* 5 Multi I/O serial, Xon / Xoff protocol. * 

* Cs Mulfi T/fl narallol Can*- r-«-in •! /-<a * 






• 

m 



6 Multi I/O parallel, Centronics. 



* 



* 7 Multi I/O parallel, Diablo HyType II. 

* * 

* Note: The Decision board is functionally identical to the * 

* Multi I/O board for printer I/O. Selections 2-6 * 

* will work on the Decision I. * 

* * 

**************** * * *********************************************** 

lsttyp equ 2 



***************************************************************** 

* * 

* The next equate determines if you have a Multi I/O Rev 3 * 

* or a Decision I mother board for parallel i/o. If are not * 

* using either of these boards then you need not worry about * 

* this equate. If you are using a Multi I/O rev. other than * 

* 3.x then you should set multr3 to 0. 



***************************************************************** 



multr3 equ 

if 
congrp equ 

endif 

if 
lstgrp equ 

endif 





contyp eq 2 
1 



lsttyp ge 2 
3 



f ******* 
;0 = Decision, 1 = Multi I/O 

;Cosole port ( 1 = pi , 2 = p2, 3 = p3) 
; Printer port (1 = pi, 2 = p2, 3 = p3) 



• 



***************************************************************** 

* * 

* 
* 

* * 
***************************************************************** 



* The following equates set up the relationship between the 

* 2D floppies and the Hard Disk Controllers. 



first equ 



maxhd equ 
max flop equ 



1 



CD 



;0 = Floppies are A,B,C,D drives and 

Hard Disk are E,F,G,H 
;1 = Hard Disks are A,B,C,D drives and 
; Floppies are E,F,G,H 
;Set to number of hard disks ^>- 
;Set to number of floppies 



M26 


equ 


M20 


equ 


M10F 


equ 


M10M 


equ 



ml0 



equ 



0© 




ml0f or ml0m 



;Set only one of these variables 



***************************************************************** 

* * 

* 
* 
* 
* 
* 
* 
* 

* * 
************ * * *************************************************** 



* The next equate will set the number of logical disks on a 

* physical hard disk drive. The user must set stdlog to a 

* vaule greater than or equale to 2 for an ml0 or 3 for an 

* m20 or m26. The reason for this is that CP/M can not 

* address more than 8 megabytes per logical disk and 

* splitting a disk to less then 2 or 3 parts would make 

* partitions that are greater than 8 megabytes in length. 



stdlog equ 

if 
logdsk equ 

else 
logdsk equ 

endif 

fujitsu equ 
mrev equ 

hdspt equ 





stdlog ne 
stdlog 

3*m26+3*m20+2*ml0 



m20 or ml0f 
26*m26+20*m20+10*ml0 

32*m26+2I*m20+21*ml0 



;Set to to use standard logical disks 



;Set to number of user selected 

; logical disks 

;Default logical disks per drive 



;Hard disk type 

; Sectors per track 



*********************** ** * * ********************************** ** * * 

* * 

* The following equates relate the Morrow Designs 2D * 

* controller. If the controller is non standard (0F800H) * 

* only the ORIGIN equate need be changed. * 

* * 
***************************************************************** 





if 


max flop ne i 


origin 


equ 


0F800H 


djram 


equ 


origin+400h 


djboot 


equ 


origin 


djcin 


equ 


origin+3h 


djcout 


equ 


origin+6h 


djhome 


equ 


origin+9h 


djtrk 


equ 


origin+0ch 


djsec 


equ 


origin+0fh 


djdma 


equ 


origin+012h 


djread 


equ 


origin+15h 


dj write 


equ 


origin+18h 


djsel 


equ 


origin+lbh 


djtstat 


equ 


origin+21h 


djstat 


equ 


origin+27h 


djerr 


equ 


origin+2ah 


djden 


equ 


origin+2dh 


djside 


equ 


origin+30h 


dblsid 


equ 


8 


io 


equ 


origin+3f8h 


dreg 


equ 


io+1 


cmdreg 


equ 


io+4 


clrcmd 


equ 
endif 


0d0h 



; Include Discus 2D ? 

;Disk Jockey 2D RAM address 

;Disk Jockey 2D initialization 

;Disk Jockey 2D character input routine 

;Disk Jockey 2D character output routine 

;Disk Jockey 2D track zero seek 

;Disk Jockey 2D track seek routine 

;Disk Jockey 2D set sector routine 

;Disk Jockey 2D set DMA address 

;Disk Jockey 2D read routine 

;Disk Jockey 2D write routine 

;Disk Jockey 2D select drive routine 

;Disk Jockey 2D terminal status routine 

;Disk Jockey 2D status routine 

;Disk Jockey 2D error, flash led 

;Disk Jockey 2D set density routine 

;Disk Jockey 2D set side routine 

; Side bit from controller 

; Start of I/O registers 



***************************************************************** 

* * 

* The following block will define cerain 2DB entry points in * 

* case the user is not actually using the 2DB's disks but is * 

* using the 2DB's console driver PROM. * 

* * 

***************************************************** 

if (maxflop eq 0) and (contyp eq 3) 
origin equ 0F800H 

djcin equ origin+3h ;Disk Jockey 2D character input routine 

djcout equ origin+6h ;Disk Jockey 2D character output routine 

djtstat equ origin+21h ;Disk Jockey 2D terminal status routine 

endif 

***************************************************************** 

* * 

* The following equates are for the Diskus Hard disk wanted. * 

* * 

***************************************************************** 





if 


maxhd ne 


hdorg 


equ 


50h 


hdstat 


equ 


hdorg 


hdcntl 


equ 


hdorg 


hdd'ata 


equ 


hdorg+3 


hdfunc 


equ 


hdorg+2 


hdcmnd 


equ 


hdorg+1 


hdreslt 


equ 


hdorg+1 


retry 


equ 


2 


tkzero 


equ 


1 


opdone 


equ 


2 


comolt 


eau 


4 



; Want Hard Disk included ? 

;Hard Disk Controller origin 

;Hard Disk Status 

?Hard Disk Control 

;Hard Disk Data 

;Hard Disk Function 

;Hard Disk Command 

;Hard Disk Result 

; Retry bit of result 

; Track zero bit of status 

;Operaction done bit of status 

jComolete bit of status 






titiout 


equ 


8 


wfault 


equ 


10h 


drvrdy 


equ 


20h 


index 


equ 


40h 


pstep 


equ 


4 


nstep 


equ 


0fbh 


hdrlen 


equ 


4 


seclen 


equ 


512 


wenabl 


equ 


0fh 


wreset 


equ 


0bh 


scenbi 


equ 


5 


dskclk 


equ 


7 


mdir 


equ 


0f7h 


null 


equ 


0fch 


idbuf f 


equ 





isbuf f 


equ 


8 


rsect 


equ 


1 


wsect 


equ 
end if 


5 



Time out bit of status 
Write fault bit of status 
Drive ready bit of status 
Index bit of status 
Step bit of function 
Step bit mask of function 
Sector header length 
Sector data length 
Write enable 
Write reset of function 
Controller control 
Disk clock for control 
Direction mask for function 
Null command 
Initialize data command 
Initialize header command 
Read sector command 
Write sector command 



***************************************************************** 

* * 

* The folowing equates will define the Decision I mother * 

* board I/O or the Multi I/O environments if needed. * 

* * 

*********************************************************** 

(contyp eq 2) or (lsttyp ge 2) ; Multi I/O board used? 

;Define Multi I/O environment 

;Base address of Multi I/O or Decision I 

;Group select port 

;Divisor (lsb) 

;Divisor (msb) 

,*Interupt enable register 

;WB14 printer select port 

;Line control register 

;Line status register 

;Read data buffer 

;Tranmitter data buffer 

; Divisor latch access bit 

; Status line THRE bit 

; Clear to send 

;Data set ready 

;Line status DR bit 

;Word length select bit 

;Word length select bit 1 for 8 bit word 

;Stop bit count - 2 stop bits 



multio 


equ 


( contyp 




if 


multio 


mbase 


equ 


48h 


grpsel 


equ 


mbase+7 


dll 


equ 


mbase 


dim 


equ 


mbase+1 


ier 


equ 


mbase+1 


elk 


equ 


mbase+2 


lcr 


equ 


mbase+3 


lsr 


equ 


mbase+5 


msr 


equ 


mbase+6 


rbr 


equ 


mbase 


thr 


equ 


mbase 


dlab 


equ 


80h 


thre 


equ 


20h 


cts 


equ 


10h 


dsr 


equ 


20h 


dr 


equ 


1 


WlS0 


equ 


1 


wlsl 


equ 


2 


stb 


equ 


4 



# 



Define multi I/O ports addresses for group zero 



gzero 


equ 





daisy0 


equ 


mbase 


daisyl 


equ 


mbase+1 


sensesw 


equ 


mbase+1 




if 


multr3 eq 


daisi0 


equ 


mbase 


daisil 


equ 
else 


mbase+1 


daisi0 


equ 


mbase+1 


daisil 


equ 
end if 


mbase 


* Define daisv 


tl status innnt 



; Daisy input ports 

; Sense switches 

Daisy output ports are different 
for Decision I and Multi I/O. 
These two are the Decision I ports 

and these are the Multi i/O's. 



• 



hi ts 



;End of ribbon 

.•Paper out 

; Cover open 

; Paper feed ready 

; Carriage ready 

? Print wheel ready 

; Printer check (error) 

; Printer ready 

Define daisy status input bits for Diablo HyType II driver 



ribbon 


equ 


01h 


paper 


equ 


02h 


cover 


equ 


04h 


pfrdy 


equ 


08h 


crrdy 


equ 


10h 


pwrdy 


equ 


20h 


check 


equ 


40h 


ready 


equ 


80h 



crstrd equ 
pfstrd equ 
pwstrd equ 



1020h 

810h 

2040h 



; Carriage ready 
? Paper feed ready 
; Print wheel ready 



Define daisy output bits 



d9 


equ 


01h 


dl0 


equ 


02 h 


dll 


equ 


04h 


dl2 


equ 


08h 


pfstb 


equ 


10h 


crstb 


equ 


20h 


pwstb 


equ 


40h 


restore 


equ 


80h 



; Define clock select bits 

rlift equ 40h 
pselect equ 80h 

; Define group select bits 



S0 


equ 


01h 


si 


equ 


02h 


smask 


equ 


03h 


bank 


equ 


04h 


enint 


equ 


08h 


restor 


equ 


10h 


denable 


equ 


20h 



;Data bit 9 

;Data bit 10 

;Data bit 11 

;Data bit 12 

; Paper feed strobe 

; Carriage strobe 

? Print wheel strobe 

^Printer restore (Ribbon lift on Multi I/O) 



; Ribbon lift 

; Select (Not used by Diablo) 



m 



; Group number (0-3) 



; Printer restore on Multi I/O 
; Driver enable on Multi I/O 



; Define special constants for the HyTyp II driver 



cpen 


equ 


10 


lperi 


equ 


6 


hinc 


equ 


120 


vxnc 


equ 


48 


numtabs 


equ 


160 


maxchrs 


equ 


1024 


maxrgt 


equ 


1584 


dfrmln 


equ 


110 


autolf 


equ 






; Default to 10 characters per inch 

r Default lines per inch 

rHorizontal increments per inch 

r Vertical increments per inch 

? Number of horizontal tabs 

r Maximum number of printer characters to queue 

r Maximum carriage position 

; Forms length times 10 

r Default to no Auto line feed. 






end if 



***************************************************************** 

* * 

* CP/M system equates. If reconfiguration of the CP/M system * 

* is being done, the changes can be made to the following 

* equates. 



* 
* 

* * 

***************************************************************** 



msize 



eau 



j&r £ *•"- 



rMemorv size of taraet CP/M 



(. fr 



*1024 ; Memory offset from 20k system 
Console command processor 
BDOS address 
Cbios address 
Offset for sysgen 
Address of last logged disk 
Default buffer address 
Transient memory 
Initial IOBYTE 
IOBYTE location 
Warm boot jump address 
BDOS entry jump address 

**************************************************************** 

* * 

* The following are internal Cbios equates. Most are misc. * 

* constants . * 

* * 

***************************************************************** 



bias 


equ 


(msize-20) 


ccp 


equ 


2500h+bias 


bdos 


equ 


ccp+800h 


bios 


equ 


ccp+1600h 


of f setc 


equ 


2100h-bios 


cdisk 


equ 


4 


buff 


equ 


80h 


tpa 


equ 


100U__ 


intioby 


equ c 


iobyte 


equ 


" 3 


wbot 


equ 





entry 


equ 


5 



-XZ£iTE~ 



retries 


equ 


10 


clear 


equ 


'Z'-64 


anul 


equ 





aetx 


equ 


'C-64 


aack 


equ 


' F ' -64 


abel 


equ 


•G'-64 


abs 


equ 


'H'-64 


ant 


equ 


•l'-64 


acr 


equ 


'J' -64 


avt 


equ 


'K'-64 


aff 


equ 


■L'-64 


alf 


equ 


'M'-64 


xon 


equ 


'Q'-64 


xof f 


equ 


•S'-64 


aesc 


equ 


lbh 


ars 


equ 


leh 


aus 


equ 


lfh 


asp 


equ 


■ i 


adel 


equ 


7fh 



;Max retries on disk i/o before error 
; Clear screen on an ADM 3 



Null 

ETX character 

ACK character 

Bell 

Back Space 

Horizontal tab 

Carriage return 

Vertical tab 

Form Feed 

Line feed 

Xon character 

Xoff character 

Escape character 

RS character 

US character 

Space 

Delete 



d4* 



a^i. 



m 
m 



***************************************************************** 
* * 

* The jump table below must remain in the same order, the * 

* routines may be changed, but the function executed must be * 

* the same . * 

* * 

***************************************************************** 



org 



bios 



; Cbios starting address 





jmp 


cboot 




wboote 


jmp 


wboot 






if 


contyp 


ne 


const 


limp 


cstty 




cin 


3mp 


cif lsh 




cout 


jmp 
else 


cotty 






jmp 


$ 




cm 


jmp 


$ 




cout 


jmp 
endif 


$ 






if 


lsttyp 


ne 




itnn 


1 1 s-t- 





;Cold boot entry point 
;Warm boot entry point 



; Console status routine 
; Console input 
; Console output 

; Console status routine PROM pointer 
; Console input PROM pointer 
; Console output PROM pointer 



T.ist rlpuifp niitnut 



• 



else 



djdrv 



;jmp 


cout 


end if 




jmp 


punch 


Dmp 


reader 


jmp 


home 


Ump 


setdrv 


jmp 


settrk 


3mp 


setsec 


limp 


setdma 


3mp 


read 


D«ip 


write 


if 


lsttyp ne 


jmp 


listst 


else 




jmp 


$ 


end if 




jmp 


sectran 


if 


max flop ne 


jmp 


djsel 


else 




jmp 


donop 


endif 





;List device output 



; Punch device output 
; Reader device input 
;Home drive 
; Select disk 
;Set track 
•Set sector 
;Set DMA address 
;Read the disk 
; Write the disk 



;List device status 
;List device status 

; Sector translation 

; Hookup for SINGLE . COM program 



* 
* 
* 
* 
* 
* 
* 
* 



The following two words define the default baud rate for 
the console and the LST: devices. These words must 
immediatly follow the Cbios jump table so that the user 
can easly modify them and that they will also be used in 
the future by Morrow Designs software. 

The following is a list of possible baud rates and the 
value needed for the defcon or deflst words. 



***************************************************************** 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * 
***************************************************************** 



* Baud rate 



* 

* 
* 
* 
* 
* 
* 
* 
* 



50 

75 
110 
134.5 

150 

300 

600 
1200 
1800 



defcon 
2304 
1536 
1047 

857 

768 

384 

192 
96 
64 



Baud rate 


defcon 


2000 


58 


2400 


48 


3600 


32 


4800 


24 


7200 


16 


9600 


12 


19200 


6 


38400 


3 


56000 


2 



defcon dw 



deflst dw 




fc 



95 



; Console baud rate 



; Printer baud rate 



* The next byte is to make sure that the group select byte 

* on the Mult I/O or Decsion I stays consistant throughout 

* the Chios. Only the group bits themselves (bits and 1) 

* should be changed as you output to the group port. If 

* you modify one of the other bits (such a driver-enable) 

* then you should modify the same bit in the group byte 

* provided. Example: 
* 



* 










; Select console group * 


* 


Ida 


group 






;Get group byte * 


* 


ori 


congrp 






; Select the console port * 


* 
* 


out 


grpsel 






; Select the group * 

* 


* 










;Modify a bit in the group byte * 


* 


Ida 


group 






;Get group byte * 


* 


ori 


bank 






; Set the bank bit * 


* 


sta 


group 






;Save new group setting * 


* 


ori 


group2 






r Select second serial port * 


* 

* 


out 


grpsel 






; Select the desired group * 

* 


* Note : 


You 


should not 


set 


the 


group bits themselves in * 


* 


the 


group byte. 






* 
* 


************************************************************ 



group db ; Group byte 

***************************************************************** 

* * 

* Console driver routines. * 

* * 

* Routine used depends on the value of contyp. Possible * 

* contyp values are listed as follows: * 

* * 

* contyp is: Nothing, used for patching to PROM's. * 

* 1 Provide for 128 bytes of patch space. * 

* 2 Multi I/O or Decision I driver. * 

* 3 2D/B driver. * 

* * 

***************************************************************** 

ciflsh call flush ;Flush disk buffers on input 

jrap citty 

***************************************************************** 

* * 

* contyp: 1 Blank space for console driver * 

* * 

* Note: If the user plans to utilize this space then the * 

* one time code such as tinit sould be placed just below * 

* the cboot routine. This space (belowe cboot) is recyled * 

* for use as a disk buffer after cboot is done. * 

* * 

***************************************************************** 

if contyp eq 1 

;Make it easy to find this place 



tinit 


equ 


$ 


cotty 


equ 


$ 


citty 


equ 


$ 


cstty 


equ 
ret 


$ 




ds 


1 



127 

endif ; Blank space 

***************************************************************** 

* * 

* contyp: 2 Multi I/O or Decision I console driver * 

* * 

***************************************************************** 
if contyp eq 2 






^^^^^^^^^*^^^^^^^nn^nnnnnnnc*^nnnnc***** ***** ********* ********* * * * 



standard divisor table is given below. 



* This driver on cold boot will inspect bits 1-3 of the sense 

* switches. If the value found is in the range 0-6 then the 

* console baud rate will be taken from the rate table. 

* Otherwise the current divisor latch value will be checked. 

* If the divisor seems to be ok then no action will be taken 

* as far as the baud rate setting goes. If the divisor is not * 

* ok then the baud rate will be set from the DEFCON word * 

* which is found just below the regular Cbios jump table. The * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



# 



* Sense switch: 123 (0 = off, 1 = on) 

* 000 = 110 

* 001 = 300 

* 010 = 1200 

* 011 = 2400 

* 100 = 4800 

* 101 = 9600 

* 110 •= 19200 

* defcon = 9600 
* 

* Note: If you are compiling with multr3 (a Multi i/o) then 

* the switches will not be available so the baud rate 

* will be taken from defcon. 
* 






***************************************************************** 

***************************************************************** 

* * 

* Due to its length, the tinit routine driver is belowe the * 

* cboot routine. * 

* * 
***************************************************************** 



***************************************************************** 

* * 

* Read a character from the serial port. * 

* * 

***************************************************************** 





citty 


Ida 


group 






on 


congrp 


» 




out 


grpsel 




coninl 


in 


lsr 


• 




ani 


dr 






JZ 


coninl 






in 


rbr 


• 




ani 
ret 


7fh 


• 


********************** 



;Get group byte 
; Select console 



;Read status register 
;Wait till character ready 

; Read character 
; Strip parity 






* * 

* 
* 

***************************************************************** 



* Output a character to serial port. 
* 



cotty Ida 


group 


on 


congrp 


out 


grpsel 


conoutl in 


lsr 


ani 


thre 


jz 


conoutl 


mov 


a. c 



;Get group byte 
; Select console 



;Read status 

;Wait till transmitter buffer empty 

: Character is in (c) 



out 

ret 



thr 



;Output to transmitter buffer 



***************************************************************** 

* * 

* Return serial port status. Returns zero if character is not * 

* ready to be read. Else returns 255 if ready. * 

* * 
***************************************************************** 



cstty 


Ida 


group 




on 


congrp 




out 


grpsel 




in 


lsr 




am 


dr 




rz 






mvi 


a,0ffh 




ret 





;Get group byte 
; Select console 



;Read status register 

;No charactter ready 
; Character ready 



end if 



;Multi I/O or Decision I 



***************************************************************** 

* * 

* contyp: 3 2DB console driver * 

* * 
***************************************************************** 





if 


contyp eq 3 


cotty 


jmp 


djcout 


citty 


jmp 


djcin 


cstty 


call 


djtstat 




ravi 


a,0ffh 




rz 






inr 


a 




ret 





; Console output 
; Console input 
; Console status 



• 



endif 



;2DB 



***************** * * ********************************************** 



* LST: device driver routines. 

* : 

* Routine used depends on the value of lsttyp. Possible 

* lsttyp Values are listed as follows: 
* 



* 
* 

* 
* 
* 
* 
* 
* 
* 



lsttyp is: 




1 
2 
3 
4 
5 
6 
7 



Nothing, used for patching to PROM's. 
Provide for 128 bytes of patch space. 
Multi I/O serial, no protocol. 
Multi I/O serial, CTS protocol. 
Multi I/O serial, DSR protocol. 
Multi I/O serial, Xon / Xoff protocol 
Multi I/O parallel, Centronics. 
Multi I/O parallel, Diablo HyType II. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



• 






***************************************************************** 



***************************************************************** 
* * 



lsttyp: 1 



Blank space for printer driver 



* Kiote: If the user plans to utilize this space then the 

* one time code such as linit sould be olaced iust below 



* 
* 
* 
* 



* the cboot routine. This space (belowe cboot) is recyled * 

* for use as a disk buffer after cboot is done. * 

* * 
***************************************************************** 

if lsttyp eq 1 

;Make it easy to find this place 



# 

m 



linit 


equ 


? 


list 


equ 


$ 


listst 


equ 
ret 
ds 


$ 

1 



127 

endif ; Blank space 

***************************************************************** 

* * 

* lsttyp: 2 Serial printer, no protocol * 

* * 

* lsttyp: 3 Serial printer, CTS protocol * 

* * 

* lsttyp: 4 Serial printer, DSR protocol * 

* * 

* lsttyp: 5 Serial printer, Xon / Xoff protocol * 

* * 

***************************************************************** 

if (lsttyp ge 2) and (lsttyp le 5) 

list Ida group ;Get group byte 

;Select list device 



Ida 


group 


orx 


lstgrp 


out 


grpsel 


in 


lsr 


am 


thre 


DZ 


11 



11 

;Wait till transmitter buffer empty 

***************************************************************** 

* * 

* The CTS driver is used for a printer with hardware * 

* handshaking (TI 810). It should be connected to the CTS * 

* input on the list device serial port. * 

* * 
***************************************************************** 

;CTS protocol 

;Wait till clear to send 



***************************************************************** 

* * 

* The DSR driver is used for a printer with hardware * 

* handshaking (TI 810). It should be connected to the DSR * 

* input on the list device serial port. * 

* * 
***************************************************************** 

;DSR protocol 






if 


lsttyp eq 3 


in 


msr 


anx 


cts 


I)z 


11 


endif 





if 


lsttyp eq 4 


in 


msr 


ani 


dsr 


Dz 


11 



;Wail till DSR comes up 
endif 

***************************************************************** 



* 

* The Xon/Xoff driver is used for a printer with software * 

* handshaking (Diablo 630). * 

* * 

***************************************************************** 





if 


lsttyp 


eq 


5 


xloop 


call 
ora 

jz 

endif 

mov 
out 
ret 


listst 

a 

xloop 

a, c 

thr 






listst 


Ida 
ori 
out 

in 

ani 

rz 


group 

Istgrp 

grpsel 

Isr 
thr 








if 


lsttyp 


eq 


3 




in 


msr 








ani 


cts 








rz 










endif 










if 


lsttyp 


eq 


4 




in 


msr 








ani 


dsr 








rz 










endif 










if 


lsttyp 


eq 


5 




mvi 


b,xon 






Istflg 


equ 

in 

ani 

jz 

in 

ani 

mov 

sta 


$-1 

Isr 

dr 

xskip 

rbr 

7fh 

b,a 

Istflg 






xskip 


mov 
sui 
jnz 
ret 


a,b 
xof f 
xsdone 






xsdone 


equ 
endif 

mvi 
ret 


a,0ffh 







;Xon / Xoff protocol 
; Check printer status 

;Loop if not ready 



endif 



;Get group byte 

; Select list device 



; Check if transmitter buffer empty 
; Return not ready 
;CTS protocol 

; Return not ready if CTS is false 

;DSR protocol 

.•Return not ready if DSR is true 



?Xon / Xoff protocol 

7 Last character recieved from printer 



; Check for a character 
7 No character present 
;Get character 

; Save 

; Kludge flag (last character recieved) 

; Check for Xoff char (control S) 

; Printer ready 

; Printer not ready 

; Printer ready for data 



; Printer ready 
?Multi I/O serial 



• 



***************************************************************** 

* * 

* lsttyp: 6 Centronics parallel printer driver. * 

* * 

***************************************************************** 



if 



lsttvo ea 6 



************************************************************** 
* 

* Decision I Diablo parallel to Centronics parallel interface. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 



The following cable must be made from the 50 pin Diablo 
conector to the 35 pin Centronics. 



Centronics 

pin signal 

1 /strobe <- 

2 datal <- 

3 data2 <- 

4 data3 <- 

5 data4 <- 

6 data5 <- 

7 data6 <- 

8 data7 <- 

9 dataS <- 

10 /acknlg -> 

11 busy -> 

12 pe -> 

13 slct -> 

14 /auto feed xt <- 

15 NC 

16 0V <■-> 

17 chassis gnd 

18 NC 

19 /strobe rtn <-> 

20 datal rtn <-> 

21 data2 rtn <-> 

22 data3 rtn <-> 

23 data4 rtn <-> 

24 data5 rtn <-> 

25 data6 rtn <-> 

26 data7 rtn <-> 

27 data8 rtn <-> 

28 /acknlg rtn <-> 

29 busy rtn <-> 

30 pe rtn <-> 

31 /init <- 

32 /error -> 

33 GND <-> 

34 NC 

35 /slct in <- 



Multi I/O 

signal 
/d9 



pin 

46 

37 

36 

39 

33 

40 

42 

43 

45 

12 

28 

3 

4 

1 



8 

11 

14 

16 

18 

20 

22 

25 

38 

41 

44 

47 

9 

5 

35 

10 



/dl 

/d2 

/d3 

/d4 

/d5 

/d6 

/d7 

/d8 

/check 

/printer ready 

/paper 

/ribbon 

/dl0 

GND 



GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

/dll 

/cover 

GND 



/dl2 



35 <-> 24 /Select 



IMPORTANT: For this interface to work /select (24) on the 
parallel conector must be tied to ground (35). 

************************************************************* 



*** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
**** 



• 



list 



rl 



Pi 



el 



Ida group 

out grpsel 

in daisy0 

ani ready+paper 

jz rl 

in daisy0 

ani ribbon 

jnz pi 

in daisy0 

ani cover 

jnz el 

mov a , c 

out daisil 



;Get group byte 



;Wait till printer ready and selected 



;Test if out of paper 



m 
m 



;Move character into (a) 

:Latph data 



mvi 


a,dll+dl0+d9 


out 


daisi0 


dcr 


a 


out 


daisi0 


inr 


a 


out 


daisi0 


ck in 


daisy0 


ani 


ready 


jz 


ack 


ret 




istst Ida 


group 


out 


grpsel 


in 


daisy0 


ani 


ready+paper 


rz 




in 


daisy 


ani 


ribbon 


rz 




in 


daisy0 


ani 


cover 


xri 


cover 


rz 




dcr 


a' 


ret 




endif 




if 


lsttyp eq 7 



;Make sure strobe is high 
; Pulse strobe low 

;Wait till ready again 



;Get group byte 
? Select group zero 

;Wait till printer ready and selected 



;Test if out of paper 






; Centronics parallel 
? Diablo HyTyp II 



***************************************************************** 

* Diablo 1610 simulator for the Morrow Designs / Thinker Toys * 

* Mult I/O board. The simulator makes the parallel Hytyp II * 

* look like a serial 1610. * 
******************** * * ******************************************* 

***************************************************************** 

* ■'". * 

* This routine does all of the character decoding, escape * 

* sequences forward, backward, etc. The list of escape * 



• 

• 
# 



* 
* 


sequences, 


and 


special characters recognized is : 


* 
* 


* 


adel 




ignored 


* 


* 


anul 




ignored 


* 


* 


aack 




ignored (when received) 


* 


* 


abel 




ignored 


* 


* 


af f 




form feed 


* 


* 


aetx 




etx/ack handshake 


* 


* 


aht 




horizontal tab 


* 


* 


alf 




line feed 


* 


* 


asp 




space 


* 


* 


abs 




backspace 


* 


* 


acr 




carriage return 


* 


* 


aesc 





ignored 


* 


* 


aesc 


1 


set tab stop at current print position 


* 


*., 


aesc 


2 


clear all tab stops 


* 


* 


aesc 


3 


graphics mode on 


* 


* 


aesc 


4 


graphics mode off 


* 


* 


aesc 


5 


forward print 


* 


* 


aesc 


6 


backward print 


* 


* 


aesc 


8 


clear tab stop 


* 


* 


aesc 


9 


set left margin 


* 


* 


aesc 


A 


ignored 


* 


* 


aesc 


B 


ianored 


* 



m 
m 
m 



* aesc 


D 


i 


* aesc 


U 


1 


* aesc 


alf i 


* aesc 


aht c 


* aesc 


avt c 


* aesc 


ars c 


* aesc 


aus c 


* 






************************ 


list Ida 




group 


ori 




denable 


sta 




group 


mov 




a,c 


ani 




7fh 


rz 






cpi 




adel 


rz 






mov 




c,a 


Ida 




escf lg 


lxi 




h, level0 


ana 




a 


mov 




a,c 


jz 




lookup 


Ida 




escflg 


lxi 




h, leVell 


cpi 




aesc 


mov 




a,c 


jz 




lookup 


lxi 




h,level2 


Ida 




escflg 



negative half line feed 
half line feed 
negative line feed 
absolute horizontal tab 
absolute vertical tab 
set vmi 
set hmi 



* 
* 
* 
* 
* 
* 
* 
* 



;Set printer initialized flag 

;Get the character to print 
; Strip off parity 

; Ignore delete 

;Save character 

; Level zero characters 

; Scan for char in A 

j Look up activity for this character 

; Single character escape sequences 

;Scan for char in A 

; Execute single level escape sequence 

;Two character escape sequence 



***************************************************************** 

* Lookup scans the table pointed at by HL looking for a match * 

* of the character in register A. * 
***************************************************************** 



;Test if end of table 

; Execute the default function 
; Otherwise test for a match 

;Bump over character 

;Bump over function address 



;Bump over character 

;Get low byte of function address 

;Get high byte of function address 
;Form Address of function 
; Execute it 

***************************************************************** 

* Each of the following tables contains entries of the form: * 

* 1 byte character to match * 

* 2 bytes of address to execute * 

* terminated by a first byte of 0. * 
***************************************************************** 



lookup 


dcr 


m 




inr 


m 




:z 


gother 




cmp 


m 




Dz 


gother 




mx 


h 




mx 


h 




xnx 


h 




[imp 


lookup 


gother 


xnx 


h 




mov 


a,m 




mx 


h 




mov 


h,m 




mov 


l.a 




pchl 





evelfcj 


db 


aesc 




dw 


doaesc 




db 


aff 




dw 


doaf f 




db 


aetx 




dw 


doaetx 



; Beginning of an escape seguence 
; Form feed 



levell 



level2 



db 


aht 


dw 


doaht 


db 


alf 


dw 


doalf 


db 


asp 


dw 


doasp 


db 


abs 


dw 


doabs 


db 


acr 


dw 


doacr 


db 





dw 


dochar 


db 


•1' 


dw 


sethtab 


db 


'2' 


dw 


clrall 


db 


'3' 


dw 


setgrp 


db 


•4' 


dw 


clrgrp 


db 


•5' 


dw 


clrdir 


db 


•6' 


dw 


setdir 


db 


'8' 


dw 


clrhtab 


db 


'9' 


dw 


setlraar 


db 


'0' 


dw 


fund 


db 


'A' 


dw 


fund 


db 


'B' 


dw 


fund 


db 


a 


dw 


fund 


db 


'b' 


dw 


fund 


db 


'D' 


dw 


neghlf 


db 


■U" 


dw 


poshlf 


db 


alf 


dw 


neglf 


db 


aht 


dw 


settwo 


db 


avt 


dw 


settwo 


db 


ars 


dw 


settwo 


db 


aus 


dw 


settwo 


db 





dw 


fund 


db 


aht 


dw 


abshtab 


db 


avt 


dw 


absvtab 


db 


ars 


dw 


setvrai 


db 


aus 


dw 


sethmi 


db 





dw 


func2 



;horizontal tab 

;Line feed 

; Space 

; Back space 

; Carriage return 

; Any other character 

;Set horizontal tab 

; Clear all horizontal tabs 

; Graphics mode 

; Clear graphics mode 

; Forward printing 

; Backward printing 

; Clear horizontal tab 

;Set left margin 

;No operation level 1 



# 



;Negative half line feed 

;Half line feed 

;Negative line feed 

•Two character escape sequence 



;Absolute horizontal tab 
.•Absolute vertical tab 



***************************************************************** 

* The following routines execute escape sequences, etc. * 

***************************************************************** 



settwo 






doaesc 


raov 


a,c 




sta 


escflg 


func0 


ret 





doaetx ret 



doalf 


call 


lfvmi 


adjvp 


xchg 






lhld 


dlvpos 




dad 


d 




shld 


dlvpos 




ret 




lfvmi 


Ida 


grhflg 




ana 


a 




lxi 


h,l 




rnz 






lhld 


vmi 




ret 




neglf 


call 


lfvmi 




call 


neghl 




call 


adjvp 




jmp 


funcl 


do asp 


call 


sphmi 


spdir 


Ida 


dirflg 




ana 


a 




cnz 


neghl 


adjhp 


xchg 






lhld 


dlhpos 




dad 


d 




shld 


dlhpos 




ret 




sphmi 


Ida 


grhflg 




ana 


a 




lxi 


h,2 




rnz 






lhld 


hmi 




ret 




doabs 


call 


sphmi 




call 


neghl 




jmp 


spdir 


doacr 


xra 


a 




sta 


dirflg 




sta 


grhflg 




lhld 


hpos 




xchg 






lhld 


lmar 




call 


hlrade 




shld 


dlhpos 




mvi 


a, auto If 




ana 


a 




jnz 


doalf 




ret 





;Get the escape character 



;Get line feed vmi 

;Get vertical motion displacement 



;Only 1/48 if in graphics mode 
;Get vertical motion index 

;Get line feed vmi 



;Get space horizontal motion 
; Forward or backwards ? 

; Negate HL 

;Adjust Horizontal position 

;Get current adjustment 

; Update it 

;And save 



;In graphics mode ? 

;Only 1/60 if in graphics mode 



; Space increment 

; Negative to start with 

; Adjust backwards 



; Forward printing 
;No graphics mode 
;Get current offset 

;Get left margin 

; Don't move yet though 
;In Auto line feed mode ? 

;Do line feed also 



dochar mov 



l.c 





mvi 


h,0 




call 


wheel 




Ida 


grhflg 




ana 


a 




lxi 


h,0 




jnz 


spdir 




lhld 


hmi 




jmp 


spdir 


clrall 


equ 


? 




lxi 


h,tabstp 




mvi 


d,tablen 


notblp 


rnvi 


m,80h 


9 kludge 


equ 


$-1 




inx 


h 




dcr 


d 




jnz 


notblp 


func2 


equ 


$ 


fund 


xra 


a 




sta 


escflg 




ret 




setgrp 


mvi 


a, 1 




sta 


grhflg 




jmp 


funcl 


clrgrp 


xra 


a 




sta 


grhflg 




jmp 


funcl 


clrdir 


xra 


a 




sta 


dirf lg 




jmp 


funcl 


Q setdir 


mvi 


a, a 




sta 


dirf lg 




jmp 


funcl 


setlmar 


lhld 
xchg 


hpos 




lhld 


dlhpos 




dad 


d 




shld 


lmar 




jmp 


funcl 


setvmi 


mov 


l,c 




mvi 


h,0 




dcx 


h 




shld 


vmi 




jmp 


func2 


sethmi 


mov 


l,c 




mvi 


h,0 




dcx 


h 




shld 


hmi 




jmp 


func2 


poshlf 


call 


hi f vmi 




call 


adjvp 




jmp 


funcl 


neghlf 


call 


hi f vmi 




call 


neghl 




call 


adjvp 




jmp 


funcl 



; Print the character in register C 



;Don't move if in graphics mode 



; Clear all horizontal tabs 

; Beginning of tab stop array 

?Size of tab array (bytes) 

; Reset tabs (reset to later) 

;Used on first reset (warmboot) 

; Next tab stop 

; Update repeat count 

; Continue zeroing 

; Clear escape sequence flag 



;Set graphics mode on 

;Turn graphics mode off 

; Forward print mode 

;Set backward printing mode 

;Get current position 
;Get offset 

;Set the motion index 



yHalf line feed vmi 



;Negative half line feed 



hi f vmi 


lhld 


vmi 


divid2 


mov 


a,h 




ora 


a 




rar 






mov 


h,a 




mov 


a, 1 




rar 






mov 


1, a 




ret 




abshtab 


mov 


e,c 




mvi 


d,0 




dcx 


d 




call 


newdlh 




jmp 


func2 


newdlh 


lhld 


hmi 




call 


hltde 




xchg 






lhld 


hpos 




xchg 






call 


hlmde 




shld 


dlhpos 




ret 




absvtab 


mov 


e,c 




mvi 


d,0 




dcx 


d 




lhld 


vmi 




call 


hltde 




xchg 






lhld 


vpos 




xchg 






call 


hlmde 




shld 


dlvpos 




jn»p 


func2 


sethtab 


call 


tabcol 




ora 


m 




mov 


m,a 




jmp 


funcl 


tabcol 


lhld 
xchg 


hpos 




lhld 


dlhpos 




dad 


d 




xchg 






lhld 


hmi 




xchg 






call 


hldde 



;Get vmi for full line feed 

;High byte 

; Clear the carry 






; Absolute horizontal tab 
;Form 16 bit tab column 

; Multiply by hmi 

;And subtract current horizontal position 



• 



; Absolute vertical tab 

; Multiply by vmi 

;And subtract the current vertical position 






Set horizontal tab 
OR in tab stop 
and save 



r Compute address of current character col 

;Get logical position 

;And divide by hmi to get character column 



mtabp 



;Make a tab pointer 

;HL -> Tab column desired (1-160) 

;HL <- address of tab stop 

', A <- bit mask for tab stop 



mtab0 



lxi 
call 


d,8 
hldde 


mov 


c,e 


xnr 
lxi 
dad 


c 

d, tabstp 

d 


xra 
stc 


a 


rar 




dcr 
inz 


c 

mtab0 



;Number of stops per byte 

;HL/DE -> HL, HL mod DE -> DE 

;Save 

;Make range (1-8) 

;Tab array 

;Make array pointer 



;Bump bit counter 



ret 






clrhtab call 


tabcol 


cma 




ana 


m 


mov 


m,a 


jrap 


fund 


doaht lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


xchg 




lhld 


hrai 


xchg 




call 


hldde 


tablop lxi 


d, numtabs 


inx 


h 


call 


hlcde 


jnc 


tofar 


push 


h 


call 


ratabp 


ana 


m 


pop 


h 


jz 


tablop 


xchg 




jmp 


newdlh 


tofar lhld 


hpos 


xchg 




lxi 


h,maxrgt 


call 


hlmde 


shld 


dlhpos 


ret 




doaff lxi 


h,dfrmln 


lxi 


d,48 


call 


hltde 


lxi 


d,10 


call 


hldde 


push 


h 


lhld 


vpos 


xchg 




lhld 


dlvpos 


dad 


d 


pop 


d 


push 


d 


call 


hldde 


xchg 




pop 


d 


xchg 




call 


hlmde 


xchg 




lhld 


dlvpos 


dad 


d 


shld 


dlvpos 


jmp 


papr 



;Clear horizontal tab 
;Mask out tab stop 

; Compute address of current character col 

;Get logical position 

;And divide by hmi to get character column 



; Start with next position 

; Compare position with number of tabs 

;Past last tab 

;Save col pointer 

; Generate tab pointer 

; Check out tab stop 

; Restore col pointer 

;Loop if stop not set 

;Set new col position and return 
;Go all the way to the right 



; Multiply forms length by 48 



;And divide it by 10 

;Save this result 

;Get logical vertical position 



;Get copy of forms length 
;HL mod DE 



***************************************************************** 

* Neghl forms the twos complement of HL. * 

***************************************************************** 



neghl 



mov 
cma 
mov 
mov 
cma 



a,h 

h,a 
a,l 



mov 


l,a 


inx 


h 


ret 





***************************************************************** 

* Hlrade subtracts DE from HL and returns . * 

***************************************************************** 



hlmde 



xcng 

call 

xchg 

dad 

ret 



neghl 
d 



• 



***************************************************************** 

* Hlcde compares HL with DE. On return the Z flag is set if * 

* they are equal, the Carry flag is set if HL is less than DE . * 
***************************************************************** 



hlcde 



mov 


a,h 


crap 
rnz 


d 


mov 


a,l 


cmp 
ret 


e 



***************************************************************** 

* Divide the number in HL by the number in DE. Return the * 

* quotient in HL and the remainder in DE. * 
***************************************************************** 



hldde 



div3 



divl 



div2 



mov 


a,d 


cma 




mov 


b, a 


mov 


a,e 


cma 




mov 


c, a 


mx 


b 


mvi 
lxi 
dcr 


a, 16 

d,0 

a 


rm 

dad 


h 


xchg 

push 
dad 


psw 
h 


pop 
jnc 


psw 
divl 


inx 


h 


push 

dad 

jnc 

xchg 

inx 

xthl 


h 
b 
div2 

h 


Pop 

jmp 

pop 

xchg 

jmp 


h 

div3 

h 

div3 



; Start by negating DE and 

; moving the left operand to BC 



; Repeat count in reg A 

; Initial remainder is zero 

;Test if done 

;A11 done ? 

; Shift right operand to the left 

;Save carry 

; Shift left operand to the left 

?Does it fit ? 



***************************************************************** 

* Multiply the contents of HL by the contents of DE. * 

***************************************************************** 



hltde 



mov 



c.l 






mult 






rnov 


b,h 


Ixi 


h,0 


mov 


a,b 


ora 


c 


rz 




mov 


a,b 


ora 


a 


rar 




mov 


b,a 


mov 


a,c 


rar 




mov 


c, a 


cc 


dadde 


xchg 




dad 


h 


xchg 




]mp 


mult 


dad 


d 


ret 





dadde 



***************************************************************** 

* The routines below actually interface to the printer, * 

* causing paper feed, carriage, and print wheel motion. * 
***************************************************************** 



carrg 






lftok 






rgtok 



posh 



lhld 


dlhpos 


mov 


a,h 


ora 


1 


rz 




lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


mov 


a,h 


ana 


a 


DP 


lftok 


lhld 


hpos 


call 


neghl 


shld 


dlhpos 


lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


lxi 


d,maxrgt 


call 


hlcde 


jc 


rgtok 


lhld 


hpos 


xchg 




lxi 


h,maxrgt 


call 


lilmde 


shld 


dlhpos 


lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


shld 


hpos 


lhld 


dlhpos 


mov 


a,h 


ana 


a 


mvi 


c,0 


3P 


posh 


call 


neghl 


mvi 


c,dll 


xchg 




lxi 


h,0 


shld 


dlhoos 



; Check for any accumulated motion 



; Check for too much motion 



; Otherwise move only to maxright 



; Update the horizontal position 



♦check if required motion is to the left 



? Reset the horizontal increment 



nohhlf 



papr 



posv 



wheel 



cmnd 



cmnd0 



xchg 

mov 

ani 

jz 

mov 

ori. 

mov 

call 

mov 

ani 

ora 

mov 

lxi 

jmp 

In Id 

mov 

ora 

rz 

mov 

ana 

mvi 

DP 

call 

mvi 

mov 

ani 

ora 

mov 

push 

lhld 

xchg 

lhld 

dad 

push 

lxi 

lxi 

call 

lxi 

call 

pop 

xchg 

call 

xchg 

shld 

lxi 

shld 

POP 

lxi 
jmp 

push 

call 

call 

pop 

lxi 

Ida 
out 

in 

ana 

jz 

mov 

cma 

mov 



a,l 

1 

nohhlf 

a, c 

dl2 

c,a 

divid2 

a,h 

d9+dl0 

c 

h,a 

d,crstrd 

cmnd 

dlvpos 

a,h 

1 

a,h 

a 

c,0 

posv 

neghl 

c,dll 

a,h 

d9+dl0 

c 

h,a 

h 
vpos 

dlvpos 

d 

h 

h,dfrmln 

d,43 

hltde 

d,10 

hldde 

d 

hldde 

vpos 

h,0 

dlvpos 

h 

d,pfstrd 

cmnd 

h 

carrg 

papr 

h 

d,pwstrd 

group 
grpsel 

daisy0 
d 

cmnd0 
a,l 

l,a 



?No half spaces 



m 
m 



! Check for any paper motion 



;No motion 



;Save paper motion 

;Get logical position 

;Save for now 

;Get default form length 

? Multiply by 48 

; Divide by 10 

; Compute HL mod DE 

;Save new vertical position 

; Reset vertical motion 

; Paper feed strobe 



; Position the carriage first 



;Get group byte 
; Select group zero 



; Negate low data bits 



m 

m 

m 



mov 


a,h 


ani 


d9+dl0+dll+d 


cma 




if 


multr3 


anx 


0f fh-restore 


endif 




mov 


h,a 


mov 


a,l 


out 


daisil 


mov 


a,h 


out 


daisi0 


xra 


e 


out 


daisi0 


mov 


a,h 


out 


daisi0 


ret 





;Mask out ribbon lift bit on Multi I/O 



; Output low bits 

.■Output high bits 
;Slap strobe bits in 

;And drop strobes back down 



***************************************************************** 

* New list device status routine. Returns 0ffh if the printer * 

* can except another character, otherwise it returns 0. * 
***************************************************************** 



listst 


Ida 


group 


i 




am 


denable 






rz 








Ida 


group 






out 


grpsel 






lxi 


d,pwstrd 






xn 


daisy0 






ana 


d 






xra 


a 






rz 








cma 








ret 







; Check printer initialized flag 

= printer not initialized 
Get group byte 
Select group zero 



# 
• 



***************************************************************** 

* Dynamic data locations used by the simulator. * 

***************************************************************** 



• 



• 



hmi 



vi ax 



dw 



dw 



vpos 


dw 


dlVpOS 


dw 


hpos 


dw 


dlhpos 


dw 


lmar 


dw 


dirf lg 


db 


grhflg 


db 


escflg 


db 


tabstp 


ds 


tablen 


equ 



endif 

















numtabs/8+1 
numtabs/8+1 



; Horizontal motion index. Set by linit 

; and escape sequences. 

; Vertical motion index. Set by linit 

and escape sequences . 
? Vertical position. Set by platen motion 
; Delta vpos. Set by platen motion 
; Horizontal position. Set by carriage motion 
; Delta hpos. Set by carriage motion 
? Left margin 
;Direction flag 
; Graphics mode flag 
; Escape sequence in progress flag 

;Tab stops bit array 
; Length of tabs array 



***************************************************************** 

* * 

* The following routines are used to make the reader and punch * 

* devices peform I/O through the console. The user may patch * 

* here for their particular devices. * 

* * 
***************************************************************** 



• 



ouncn 



imo 



cout 



reader jmp 



cm 



***************************************************************** 

* 

* 

* Gocpm is the entry point from cold boots, and warm boots. It * 

* initializes some of the locations in page 0, and sets up the * 

* initial DMA address (80h) . * 

* * 

***************************************************************** 



gocpm lxi 
call 
mvi 
sta 
sta 
lxi 
shld 
lxi 
shld 
xra 
sta 
sta 
Ida 
mov 
Ida 
ora 
lxi 
mvi 

jz 
lxi 

mvi 
cldcmnd lxi 
sta 
mov 
call 
Ida 
ora 
Ida 

jz 

rar 
cldbot rar 
jc 
jmp 

cwflg db 



h,buf f 

setdma 

a, (jmp) 

wbot 

entry 

h, wboote 

wbot+1 

h,bdos+6 

entry+1 

a 

bufsec 

bufwrtn 

cdisk 

c, a 

cwflg 

a 

d,coldbeg 

a,coldend- 

cldcmnd 

d , warmbeg 

a,warmend- 

h,ccp+8 

ccp+7 

b,a 

movlop 

cwflg 

a 

autoflg 

cldbot 



ccp 
ccp+3 



;Set up initial DMA address 

; Initialize jump to warm boot 

; Initialize jump to BDOS 
; Address in warm boot jump 

; Address in BDOS jump 

;A <- 

;Disk Jockey buffer empty 

;Set buffer not dirty flag 

;Jump to CP/M with currently selected disk in C 



r Beginning of initial command 
•coldbeg+1 ; Length of command 






•warmbeg+1 

;Command buffer 







; Enter CP/M 

; Cold/warm boot flag 



****************************** *********************************** 

* * 

* The following byte determines if an initial command is to be * 

* given to CP/M on warm or cold boots. The value of the byte is * 

* used to give the command to CP/M: 
* 



# 



* 
* 
* 
* 
* 
_ * 

* * 

******************* ********************************************** 



* = never give command. 

* 1 = give command on cold boots only. 

* 2 = give the command on warm boots only. 

* 3 = give the command on warm and cold boots 



autoflg db 







;Auto command feature 



***************************************************************** 

* 

* 

* If there is a command inserted here, it will be given if the * 

* auto feature is enabled. * 



* For Example : * 

* * 

* coldbeg db 'MBASIC MYPROG' * 

* coldend db * 

* * 

* will execute microsoft basic, and mbasic will execute the * 

* "MYPROG" basic program. * 

* * 

***************************************************************** 



coldbeg db 
coldend db 
warrabeg db 
warmend db 




■ i 





;Cold boot command goes here 
;Warm boot command goes here 



***************************************************************** 

* * 

* vfboot loads in all of CP/M except the Cbios, then initializes * 

* system parameters as in cold boot. See the Cold Boot Loader * 

* listing for exactly what happens during warm and cold boots. * 

* * 

***************************************************************** 



wboot 



lxi 
mvi 

sta 



if 
xra 
mov 
lxi 
push 
sta 
mvi 
push 
call 
mvi 
call 
warmlod pop 
Pop 
inr 
sta 
cpi 

jz 
inr 
inr 
shld 
push 
push 
warrard lxi 
wrmread push 
call 
pop 
jnc 
dcr 
jnz 
hit 
db 
end if 



sp , tpa 

a,l 

cwflg 



;Set up stack pointer 
;Set cold/warm boot flag 



(maxhd ne 0) and first ; Supply Warm Boot from Hard Disk ? 

a 

c, a 

h, ccp-200h 

h 

head 

a,l 

psw 

hddrv 

c,0 

hdtrk 



; Initial DMA address 



;Save first sector - 1 
; Select drive A 



psw 
h 



;Past BDOS ? 

;Yes, all done 

; Update DMA address 



;Home the drive 

y Restore sector 

; Restore DMA address 
a 

hdsectr 
12 

gocpm 
h 
h 

hdadd 
h 

psw 

b, retries* 100h+0 ; Retry counter 
b ; Save the retry count 

hdread ;Read the sector 

b 

warmlod ;Test for error 
b ; Update the error count 

wrmread ;Keep trying if not to many errors 

; Error halt 
;Try not to screw up Decision CPU's 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



m 



* Floppy disk warm boot loader 
* 



if 
mvi 
call 
wrrafail call 
jc 
mvi 
call 



• 
• 



(maxflop ne 0) and not first ; Supply Warm Boot from 2D ? 

c,0 

djsel ; Select drive A 

djhome ; Track 0, single density 

wrmfail ;Loop if error 

c,0 ; Select side 

djside 

;The next block of code re-initializes 
; the warm boot loader for track 0. 



; Initialize the sector to read - 
; First revolution DMA - 100h 
;Load all of track 

First sector - 2 

Update sector # 

Size of track in sectors + 1 

Skip if not at end of track 

Done with this track 

Back up to sector 6 

Memory address of sector - 100h 

Save the updated sector # 

Set up the sector 

Memory address of sector - 100h 

Update DMA address 

Save the updated DMA address 



Set up the new DMA address 
Maximum # of errors, track # 

Set up the proper track 
Read the sector 

Continue if no error 

Keep trying if error 

To many errors, flash the light 

;Load track 1, sector 1, sector 3 (partial), sector 2 (1024 byte sectors) 

; Track 1 

;Address for sector 1 
; Retry count + sector 1 

; Address for sector 2 
; Retry count + sector 3 



;Size of partial sector 
; Address for sector 3 
; Address of sector 3 

;Get a byte and 
; save it. 
;Bump pointers 





mvi 


a, 5-2 




sta 


newsec 




lxi 


h,ccp-100h ; 




shld 


newdma 

• 
f 


t0boot 


mvi 


a, 5-2 ; 


newsec 


equ 


$-1 




inr 


a 




inr 


a 




cpi 


27 ; 




jc 


nowrap ; 




jnz 


tlboot ; 




sui 


27-6 ; 




lxi 


h,ccp-80h ; 




shld 


newdma 


nowrap 


sta 


newsec ; 




raov 


c, a 




call 


djsec ; 




lxi 


h,ccp-100h ; 


newdma 


equ 


$-2 




lxi 


d,100h 




dad 


d 


nowrp 


shld 


newdma ; 




raov 


b,h 




mov 


c,l 




call 


djdma ; 




lxi 


b,retries*100h+0; 


wrmfred 


push 


b 




call 


djtrk ; 




call 


djread ; 




pop 


b 




jnc 


t0boot 




dcr 


b 




jnz 


wrmfred 




jmp 


djerr ; 



tlboot 


mvi 


c,l 




call 


djtrk 




lxi 


b,ccp+0b00h 




lxi 


d,10*100h+l 




call 


wrmread 




lxi 


b,ccp+0f00h 




lxi 


d,10*100h+3 




call 


wrmread 




lxi 


b,0300h 




lxi 


d,ccp+1300h 




lxi 


h,ccp+0f00h 


wrmcpy 


mov 


a,m 




stax 


d 




mx 


d 




mx 


h 



dcx 


b 


raov 


a,b 


ora 


c 


}nz 


wrmcpy 


lxi 


b,ccp+0f00h 


lxi 


d,10*100h+2 


call 


wrmread 



; Bump counter 
; Check if done 

; if not, loop 

;Address for sector 2 
; Retry count + sector 2 



;jmp 



gocpm 



wrmread 


push 


d 




call 


djdma 




pop 


b 




call 


djsec 


wrmfrd 


push 


b 




call 


djread 




3c 


wrmerr 




call 


djstat 




ani 


0ch 




sui 


0ch 


wrmerr 


pop 

rnc 


b 




dcr 


b 




jnz 


wrmfrd 




Dmp 


djerr 



end if 



;A11 done, do last inits . . . 

;Set DMA address 

;Set sector 

;Save error count 

;Read a sector 

;Do retry stuff on error 

; Sector size must be 1024 bytes 

;Mask length bits 

; Carry (error) will be set if < 0c0h 

; Fetch retry count 

; Return if no error 

;Bump error count 

; Error, flash the light 



***************************************************************** 

* * 

* Setsec just saves the desired sector to seek to until an * 

* actual read or write is attempted. * 

* * 

***************************************************************** 



setsec 


mov 


h,b 




mov 


l,c 




shld 


cpmsec 


donop 


ret 





;Null SINGLE.COM hookup for no floppies 



***************************************************************** 

* * 

* Setdma saves the DMA address for the data transfer. * 

* * 

***************************************************************** 



setdma mov 
mov 
shld 
ret 



h,b 
l,c 
cpmdma 



;hl <- be 

;CP/M dma address 



***************************************************************** 

* * 

* Home is translated into a seek to track zero. * 

* * 

***************************************************************** 



home 



ravi 



c,0 



•Track to seek to 



***************************************************************** 

* * 

* Settrk saves the track # to seek to. Nothing is done at this * 

* point, everything is deffered until a read or write. * 

* * 
***************************************************************** 



settrk raov 
sta 
ret 



a, c 
cpratrk 



;A <- track # 
;CP/M track # 



• 

• 



**************************************** ************************* 



* Sectran translates a logical sector # into a physical sector 

* # . 
* 

***************************************************************** 



if 
sectran Ida 

if 

cpi 

jc 

else 

cpi 

jnc 

endif 

end if 

if 

sectran equ 

endif 

if 
tranfp inx 
push 
push 
call 
mov 
ora 
rar 
sub 
push 
jrn 
side a pop 
pop 
pop 
sideone xchg 
dad 
mov 
mvi 
ret 

sidetwo lxi 
dad 
mov 
ani 

jz 
pop 

pop 

cma 

inr 

mov 

pop 

call 

mvi 

ora 

mov 

ret 

endif 



(maxhd ne 0) and (maxflop ne 0) ;Both types ? 
cpmdrv ;Get the Drive Number 



first 

maxhd* logdsk 
tranhd 

maxflop 
tranhd 



;Over the # of hard disks ? 
;Over the # of floppies ? 



(maxhd eq 0) or (maxflop eq 0) ;Just one type ? 



maxflop ne 

b 

d 

b 

getdpb 

a,m 

a 

c 

psw 

sidetwo 

psw 

b 
d 

b 

l,m 

h,0 



b,15 

b 

a,m 

8 

sidea 

psw 

b 

a 

c,a 

d 

sideone 

a,80h 

h 

h,a 



; Floppy translation 

;Save table address 

;Save sector # 

;Get DPB address into HL 

;Get # of CP/M sectors/track 

; Clear cary 

; Divide by two 

; Save adjusted sector 

; Discard adjusted sector 
; Restore sector requested 
;Restor address of xlt table 
;hl <- &(translation table) 
;bc = offset into table 
;hl <- physical sector 



; Offset to side bit 

;Test for double sided 
,-Media is only single sided 
; Retrieve adjusted sector 

;Make sector request positive 

;Make new sector the requested sector 



;3ide two bit 

; and sector 



• 



tranhd 



if 


raaxhd ne 


mov 


h,b 


mov 


l,c 


mx 


h 


ret 




end if 





;Hard Disk translation routine 



***************************************************************** 






* Setdrv selects the next drive to be used in read/write 

* operations. If the drive has never been selected before, a 
parameter table is created which correctly describes the 
diskette currently in the drive. Diskettes can be of four 
different sector sizes: 

1) 128 bytes single density. 

2) 256 bytes double density. 

3) 512 bytes double density. 

4) 1024 bytes double density. 



* 
* 
* 
* 

* 
* 
* 
* 
* 
* 



***************************************************************** 



setdrv mov a,c ; Save the drive # 

sta cpmdrv 

cpi maxf lop+ (maxhd* logdsk) ;Check for a valid drive # 

jnc zret ; Illegal drive # 

mov a,e ;Test if drive ever logged in before 

ani 1 

jnz setdrvl ;Bit of E = -> Never selected before 

if (maxhd ne 0) and (maxf lop ne 0) ;Both types ? 

Ida cpmdrv ;Get the Drive Number 



if 

cpi 

jc 

sui 

else 

cpi 

jnc 

endif 

endif 



first 

maxhd* logdsk ;Over the # of hard disks ? 

drvhd 

maxhd* logdsk 



max flop 
subfp 



;Over the # of floppies ? 



if 

mov 

mvi 

flopflg equ 
ana 
jnz 
mvi 
lxi 
mvi 

clopp cmp 
jnz 
inx 
inx 
inx 
dcr 
jnz 
lxi 
lxi 
mvi 
call 
mvi 
sta 
mvi 



(maxf lop ne 0) and first 



c,a 
a,0 

$-1 

a 

flopok 

b,17 

h,djboot 

a, ( jmp) 

m 

zret 

h 

h 

h 

b 

clopp 

d,djinit 

h,origin+7e2h 

b,30 

mo v lop 

a,0ffh 

dreg 

a.clrcmd 



; Save drive # 

;Have the floppies been accessed yet ? 



; Floppies havn't been accessed 
;Check if 2D controller is installed 



; Initialization sequence 
;Load address 
;Byte count 

; Start 1791 

:1791 reset 






djinit 



djnext 



flopok 



• 
• 
* 
• 
• 
• 

* 






sideok 



sta 
jmp 

db 
db 

mvi 

sta 

end if 

if 

lxi 

shld 

mvi 

sta 

call 

jc 

call 

ani 

push 

rar 

lxi 

mov 

mvi 

dad 

push 

call 

xchg 

pop 

mvi 

call 

lxi 

dad 

push 

lhld 

inx 

mov 

xri 

mov 

mvi 

mov 

ani 

lxi 

jnz 

lxi 

xchg 

pop 

pop 

ral 

ral 

mov 

mvi 

dad 

xchg 

mov 

inx 

mov 

endif 



cmdreg 
djnext 

0, 0, 0, 18h, 0, 0, 8, 0, 7eh, 0, 8, 0, 9, 0ffh, 9, 0ffh 
9, 0ffh, 9, 0ffh, 9, 0, 1, 0, 0, 0, 0, 0, 0, 



a,l 
flopflg 

maxflop ne Q 

h,l 

truesec 

a,l 

cpmtrk 

fill 

zret 

djstat 

0ch 

psw 

h,xlts 

e,a 

d,0 

d 

h 

getdpb 

d 

b,2 

mov lop 

d,8 

d 

h 

origin+7 

h 

a,m 

3 

l.a 

h, (origin+300h 

a,m 

dblsid 

d,dpbl28s 

sideok 

d,dpbl28d 

d 
psw 



c,a 

b,0 
b 

m, e 

h 

m,d 



;Save 2D initialized flag 



; Select sector 1 of track 1 



; Flush buffer and refill 
; Test for error return 
?Get status on current drive 
; Strip off unwanted bits 
;Used to select a DPB 

; Table of XLT addresses 



Save pointer to proper XLT 
Get DPH pointer into DE 



; Number of bytes to move 
;Move the address of XLT 
; Offset to DPB pointer 
;HL <- &DPH.DPB 

Get address of DJ terminal out routine 
Bump to look at address of 
uart status location 



; Adjust for proper rev DJ 

)/l00h 

; Check double sided bit 
;Base for single sided DPB's 

;Base of double sided DPB's 
;HL <- DBP base, DE <- &DPH.DPB 
; Restore DE (pointer into DPH) 
; Offset to correct DPB 



# 



;Put DPB address in DPH 



subfp 



if 

jmp 

if 

sui 

endif 

endif 



(maxhd ne 0) and (maxflop ne 0) 

setdrvl ;Skip over the Hard Disk select 

not first 

maxflop ;Adjust the drive # 





if 


maxhd ne 


4| drvhd 


call 


divlog 




mov 


a,c 




sta 


hddisk 




call 


drvptr 




mov 


a,m 




inr 


a 




jnz 


setdrvl 




ori 


null 




out 


hdfunc 




mvi 


a,scenbl 




out 


hdcntl 




mvi 


c,239 




lxi 


h,0 


tdelay 


dcx 


h 




mov 


a,h 




ora 


1 




cz 


dcrc 




rz 






in 


hdstat 




ani 


drvrdy 




jnz 


tdalay 




if 


not fujitsu 




lxi 


h,0 




mvi 


c, index 




i n 


hdstat 




ana 


c 




mov 


b,a 


indxl 


in 


hdstat 




ana 


c 




cmp 


b 




jz 


indxl 


indx2 


inx 


h 




in 


hdstat 




ana 


c 




cmp 


b 




jnz 


indx2 




if 


ml0 




dad 


h 




end if 






if 


m26 




xra 


a 




mov 


a,h 




rar 






mov 


d, a 




mov 


a,l 




rar 






mov 


e, a 




dad 


d 




end if 






shld 


settle 




end if 






call 


hdhome 




endif 




£ setdrvl 


call 


getdpb 




lxi 


b,15 




dad 


b 




mov 


a,m 




ani 


7h 




sta 


secsiz 




mov 


a,m 




rar 





;Divide by logical disks per drive 



; Select drive 

; Enable the controller 

;Wait approx 2 minutes for Disk to ready 



;Test if ready yet 



;Time one revolution of the drive 



;Save current index level in B 



;Loop util index level changes 



; Start counting until index returns to 
previous state 



jMemorex M10's have 40 ms head settle 



;Shugart M26's have 30 ms head settle 



• 



; Save the Count for timeout delay 



;Get address of DPB in HL 
; Offset to sector size 

;Get sector size 





rar 






rar 






rar 






anx 


0fh 




sta 


secpsec 




xchg 






ret 




zret 


lxi 
ret 


h,0 




if 


maxhd ne 


dcrc 


dcr 
ret 


c 


divlog 


mvi 


c,0 


divlogx 


sui 
re 


logdsk 




xnr 


c 




jmp 


divlogx 




endif 





;HL <- DPH 
;Seldrv error exit 

j Conditional decrement C routine 



• 



***************************************************************** 

* * 

* Getdpb returns HL pointing to the DPB of the currently * 

* selected drive, DE pointing to DPH. * 

* * 

***************************************************************** 



etdp 


b Ida 


cpmdrv 




mov 


l,a 




mvi 


h,0 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




lxi 


d,dpbase 




dad 


d 




push 


h 




lxi 


d,10 




dad 


d 




mov 


a,m 




xnx 


h 




mov 


h f m 




mov 


l,a 




Pop 


d 




ret 





;Form offset 






;Base of DPH's 

; Save address of DPH 
; Offset to DPB 

;Get low byte of DPB address 

; Get low byte of DPB 



***************************************************************** 

* * 

* Xlts is a table of address that point to each of the xlt * 

* tables for each sector size. * 

* * 
***************************************************************** 



xlts 



if 


max flop ne 


dw 


xltl28 


dw 


xlt256 


dw 


xlt512 


dw 


xltl24 


endif 





;Xlt for 128 byte sectors 

;Xlt for 256 byte sectors 

;Xlt for 512 byte sectors 

;Xlt for 1024 byte sectors 



***************************************************************** 

* * 

* Write routine moves data from memory into the buffer. If the * 

* desired CP/M sector is not contained in the disk buffer, the * 



* buffer is first flushed to the disk if it has ever been * 

* written into, then a read is performed into the buffer to get * 

* the desired sector. Once the correct sector is in memory, the * 

* buffer written indicator is set, so the buffer will be * 

* flushed, then the data is transferred into the buffer. * 

* * 

***************************************************************** 



write 



mov 


a,c 




sta 


writtyp 




mvx 


a,l 




db 


(mvi) or 


(b*8) 



;Save write command type 

;Set write command 
;This "mvi b" instruction causes 
; the following "xra a" to 
; be skipped over. 



• 



*** ************************************************************** 

* * 

* Read routine to buffer data from the disk. If the sector * 

* requested from CP/M is in the buffer, then the data is simply * 

* transferred from the buffer to the desired dma address. If * 

* the buffer does not contain the desired sector, the buffer is * 

* flushed to the disk if it has ever been written into, then * 

* filled with the sector from the disk that contains the * 

* desired CP/M sector. * 

* * 

***************************************************************** 



read 



xra 

sta 



a 
rdwr 



;Set the command type to read 
; Save command type 



***************************************************************** 

* * 

* Redwrt calculates the physical sector on the disk that * 

* contains the desired CP/M sector, then checks if it is the * 

* sector currently in the buffer. If no match is made, the * 

* buffer is flushed if necessary and the correct sector read * 

* from the disk. * 

* * 

***************************************************************** 



redwrt 


mvi 


b,0 


secsiz 


equ 


$-1 




lhld 

mov 

ani 


cpmsec 

a,h 

80h 




mov 


c,a 




mov 
ani 


a,h 
7fh 


divloop 


mov 
dcx 
dcr 
jz 


h,a 

h 
b 
divdone 




ora 


a 




mov 


a,h 




rar 






mov 


h,a 




mov 


a,l 




rar 






mov 


l,a 


divdone 


}mp 

inx 


divloop 

h 




mov 


a,h 




ora 


c 




mov 


h.a 



;The is modified to contain the log2 
; of the physical sector size/ 128 
; on the currently selected disk. 

;Get the desired CP/M sector # 

?Save only the side bit 
; Remember the side 

; Forget the side bit 

; Temporary adjustment 
; Update repeat count 



; Divide the CP/M sector # by the size 
; of the physical sectors 



; Restore the side bit 



;Save the physical sector number 

; Pointer to desired drive, track, and sector 

; Pointer to buffer drive, track, and sector 

; Count loop 

;Test if done with compare 

;Yes, match. Go move the data 

;Get a byte to compare 

;Test for match 

;Bump pointers to next data item 

; Match, continue testing 
***************************************************************** 





shld 


truesec 




lxi 


h,cpmdrv 




lxi 


d,bufdrv 




mvx 


b,5 


dtslop 


dcr 


b 




Dz 


move 




ldax 


d 




cmp 


m 




mx 


h 




xnx 


d 




JZ 


dtslop 



* Drive, track, and sector don't match, flush the buffer if 

* necessary and then refill. 



* 
* 
* 
* 



***************************************************************** 



call 

re 



fill 



;Pill the buffer with correct physical sector 
;No good, return with error indication 



***************************************************************** 

* * 

* Move has been modified to cause either a transfer into or out * 

* the buffer. * 

* * 
***************************************************************** 



;Get the CP/M sector to transfer 

;Adjust to proper sector in buffer 

; Strip off high ordered bits 

;The is modified to represent the # of 

; CP/M sectors per physical sectors 

?Put into HL 

;Form offset into buffer 



move 


Ida 


cpmsec 




dcr 


a 




ani 





secpsec 


equ 


$-1 




mov 


l,a 




mvi 


h,0 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




lxi 


d, buffer 




dad 


d 




xchg 






lxi 


h,0 


cpmdma 


equ 


$-2 




mvi 


a,0 


rdwr 


equ 


5-1 




ana 


a 




jnz 


into 


outof 


call 


mover 




xra 


a 




ret 




into 


xchg 






call 


mover 




mvi 


a,l 




sta 


bufwrtn 




mvi 


a,0 


rfrittyp 


equ 


$-1 




dcr 


a 



# 
# 



.•Beginning address of buffer 

;Form beginning address of sectgr to transfer 
;DE = address in buffer 
;Get DMA address, the is modified t/ 
contain the DMA address 

;The zero gets modified to contain 

7 a zero if a read, or a 1 if write 

;Test which kind of operation 
; Transfer data into the buffer 



Move the data, HL = destination 
DE = source 

;Set buffer written into flag 
7 Check for directory write 



mvi 


a,0 


sta 


writtyp 


rnz 





;Set no directory write 
;No error exit 



***************************************************************** 

* * 

* Flush writes the contents of the buffer out to the disk if * 

* it has ever been written into. * 

* * 

***************************************************************** 



flush mvi 



a # 



bufwrtn equ 


$-1 


ana 


a 


rz 




if 


(maxhd ne 0) 


lxi 


h,d jwrite 


lxi 


d/hdwrite 


call 


decide 


else 




if 


maxhd ne 


lxi 


h,hdwrite 


endif 




if 


max flop ne 


lxi 


h,djwrite 


endif 




endif 





;The is modified to reflect if 

; the buffer has been written into 

;Test if written into 
;Not written, all done 



; Write operation for Disk Jockey 
;Write operation for Hard Disk 



***************************************************************** 

* * 

* Prep prepares to read/write the disk. Retries are attempted. * 

* Upon entry, H&L must contain the read or write operation * 

* address . * 

* * 

***************************************************************** 



prep di 
xra 
sta 
shld 
mvi 

retrylp push 
Ida 

if 

if 

cpi 

jc 

sui 

else 

cpi 

jc 
sui 

endif 



a 

bufwrtn 

retryop 

b, retries 

b 

bufdrv 



; Reset interrupts 

; Reset buffer written flag 

;Set up the read/write operation 

; Maximum number of retries to attempt 

;Save the retry count 

;Get drive number involved in the operation 



(maxhd ne 0) and (maxflop ne 0) 

first 

maxhd* logdsk 

noad jst 

maxhd* logdsk 

maxflop 
noad jst 
maxflop 



noad jst mov 
lxi 
lxi 
call 
else 
mov 
if 

call 
endif 



c,a 

h,djdrv 
d,hddrv 
decidgo 

c,a 

maxhd ne 

hddrv 



; Select drive 



• 
• 
• 



if 


max flop ne 


call 


djdrv 


endif 




endif 




Ida 


buftrk 


ana 


a 


mov 


c,a 


push 


b 


if 


(maxhd ne 


lxi 


h, djhome 


lxi 


d , hdhome 


cz 


decidgo 


else 




if 


maxhd ne 


cz 


hdhome 


endif 




if 


maxflop ne 


cz 


djhome 


endif 




endif 





pop 

if 

lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 

lhld 

mov 

rlc 

ani 

mov 

if 

lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 

lhld 

mov 

ani 

mov 

mov 

if 

lxi 

lxi 



; Select the drive 



;Test for track zero 



jHorne the drive if track 



; Restore track # 



m 
m 



(maxhd ne 0) and (maxflop ne 0) 

h,djtrk 

d,hdtrk 

decidgo 

maxhd ne 
hdtrk 



maxflop ne 
djtrk 



buf sec 
a,h 

1 
c,a 



;Seek to proper track 



;Get sector involved in operation 
;Bit of A equals side # 
; Strip off unnecessary bits 
;C <- side # 



(maxhd ne 0) and (maxflop ne 0) 

h,djside 

d.hdside 

decidgo 

maxhd ne 
hdside 



maxflop ne 
djside 



bufsec 
a,h 

7fh 
b, a 
c,l 



; Select the side 



; Strip off side bit 
;C <- sector # 



(maxhd ne 0) and (maxflop ne 0) 

h,d jsec 

d.hdsec 



• 





call 


decidgo 




else 






if 


maxhd ne 




call 


hdsec 




endif 






if 


max flop ne 




call 


djsec 




endif 






endif 






lxi 


b,buffer 




if 


(maxhd ne 3) 




lxi 


h,djdma 




lxi 


d,hddma 




call 


decidgo 




else 






if 


maxhd ne 




call 


hddma 




endif 






if 


max flop ne 




call 


djdma 




endif 






endif 






call 





retryop 


equ 


$-2 




pop 


b 




mvi 


a,0 




rnc 






dcr 


b 




stc 






mvi 


a,0ffh 




rz 






rnov 


a,b 




cpi 


retries/2 




jnz 


retrylp 




push 


b 




if 


(maxhd ne 0) 




lxi 


h,djhome 




lxi 


d , hdhome 




cz 


decidgo 




else 






if 


maxhd ne 




cz 


hdhome 




endif 






if 


max flop ne 




cz 


djhome 




endif 






endif 






pop 


b 




jmp 


retrylp 



; Select the side 



;Set the DMA address 



•Select the side 



;Get operation address 

; Restore the retry counter 

;No error exit status 

; Return no error 

; Update the retry counter 

; Assume retry count expired 

; Error return 

; Return sad news 

jreseek after half retries done 
;Try again 



# 



;Home the drive if track 



;Try again 

***************************************************************** 

* * 

* Fill fills the buffer with a new sector from the disk. * 

* * 

***************************************************************** 



fill 



call 


flush 


re 




lxi 


d, cpmdrv 


lxi 


h,bufdrv 


mvi 


b,4 



;Flush buffer first 

; Check for error 

; Update the drive, track, and sector 

.•Number of bvtes to move 



call movlop ;Copy the data 

Ida rdwr 

ana a 

jz fread 

Ida writtyp 

dcr a 

dcr a 

rz 

call getdpb 

lxi d,15 

dad d 

mov a,m 

ani 3 

dcr a 

rz 

fread equ $ 

if (maxhd ne 0) and (max flop ne 0) 

lxi h,djread 

lxi d,hdread 

call decide 
else 

if maxhd ne 

lxi h,hdread 
end if 

if maxflop ne 

lxi h,djread ; Select the side 
endif 
end if 

jmp prep ; Select drive, track, and sector. 

Then read the buffer 

************ ***************************************************** 

* * 

* Mover moves 128 bytes of data. Source pointer in DE, Dest * 

* pointer in HL. * 

* * 
***************************************************************** 

mover mvi b,128 ;Length of transfer 

movlop ldax d ; Get a bte of source 

mov m,a ;Move it 

lnx d ;fiump pointers 

inx h 

3cr *> ; Update counter 

jnz movlop ; Continue moving until done 

ret 

***************************************************************** 

* * 

* Routines to decide which controller to use. * 
* 

* 

***************************************************************** 



m 
m 



if (maxhd ne 0) and (maxflop ne 0) 

decidgo call decide ; which controller ? 
pchl 
£ endif 

if (maxhd ne 0) and (maxflop ne 0) 

£ decide Ida bufdrv ;Get proper routine into H&L, based 

if first ; on currently selected drive 

cpi maxhd*logdsk 

4) rnc 

else 



cpi max flop 

re 

endif 

xchg 

ret 

endif 

***************************************************************** 

* * 

* The following is the equivalent of the lowest level drivers * 

* for the Hard Disk. * 

* * 

***************************************************************** 



# 

• 






if 


maxhd ne 


hddrv mov 


a,c 


call 


divlog 


mov 


a,c 


sta 


hddisk 


ori 


null 


out 


hdfunc 


mvi 


a,wenabl 


out 


hdcntl 


ret 




hdhome call 


drvptr 


mvi 


m,0 


in 


hdstat 


ani 


tkzero 


rz 




if 


not fujitsu 


stepo in 


hdstat 


ani 


tkzero 


jz 


delay 


mvi 


a,l 


stc 




call 


accok 


jmp 


stepo 



else 





xra 


a 




jmp 


accok 




endif 






if 


not fujitsu 


delay- 


lxi 


h,0 


settle 


equ 


$-2 


deloop 


dcx 


h 




mov 


a,h 




ora 


1 




inx 


h 




dcx 


h 




jnz 


deloop 




ret 






endif 




hdtrk 


call 


drvptr 




mov 


e,m 




mov 


m,c 




mov 


a, e 




sub 


c 




rz 






cmc 






ic 


hdtrk2 



.•Select Hard Disk drive 
;Get the physical drive # 

; Select the drive 



; Set track to zero 
;Test status 
;At track zero ? 
;Yes 



;Test status 
;At track zero ? 



;Take one step out 



• 



yGet delay 
yWait 20ms 



;Get pointer to current track 
;Get current track 
; Update the track 
;Need to seek at all ? 



;Get carry into direction 





cma 






irxr 


a 




if 


fujitsu 


hdtrk2 


jmp 


accok 




else 




hdtrk.2 


call 


accok 




jmp 


delay 




endif 




accok 


mov 


b, a 




call 


build 


sloop 


ani 


nstep 




out 


hdfunc 




ori 


pstep 




out 


hdfunc 




dcr 


b 




jnz 


sloop 




jmp 


wsdone 


hddma 


mov 


h,b 




mov 


l,c 




shld 


hdadd 


hdside 


equ 

ret 


$ 


wsdone 


in 


hdstat 




ani 


complt 




jz 


wsdone 




ret 






if 


m26 


hdsec 


mvi 


a,01fh 




ana 


c 




cz 


getspt 




sta 


hdsectr 




mvi 


a,0e0h 




ana 


c 




rlc 






rlc 






rlc 






sta 


head 


getspt 


mvi 
ret 


a, hdspt 



m 



hdsec 



* 



getspt 



divspt 
"dxvsptx 



else 

mov 

call 

adi 

ana 

cz 

sta 

mov 

sta 

mvi 

dcr 

ret 

mvi 

sui 

re 

inr 

jmp 

endif 



a,c 

divspt 

hdspt 

a 

getspt 

hdsectr 

a,c 

head 

a, hdspt 

c 



c,0 

hdspt 

c 
divsptx 



;Prep for build 

;Get step pulse low 

; Output low step line 

;Set step line high 

; Output high step line 

;Update repeat count 

;Keep going the required # of tracks 



;Save the DMA address 



• 



;Wait for seek complete to finish 



;For compatibility with Cbios rev 2.3, 2.4 









hdread call 



hdoreo 



• 



re 




xra 


a 


out 


hdcmnd 


craa 




out 


hddata 


out 


hddata 


mvi 


a, rsect 


out 


hdcmnd 


call 


process 


re 




xra 


a 


out 


hdcmnd 


mvi 


b, seclen/4 


lxi 


h,0 


ndadd equ 


$-2 


in 


hddata 


in 


hddata 


rtloop in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


dcr 


b 


jnz 


rtloop 


ret 




hdwrite call 


hdprep 


re 




xra 


a 


out 


hdcmnd 


lhld 


hdadd 


mvi 


b, seclen/4 


wtloop mov 


a,m 


out 


hddata 


inx 


h 


mov 


a,m 


out 


hddata 


inx 


h 


mov 


a,m 


out 


hddata 


inx 


h 


mov 


a,m 


out 


hddata 


inx 


h 


dcr 


b 


jnz 


wtloop 


mvi 


a,wsect 


out 


hdcmnd 


call 


process 


re 




mvi 


a,w£ault 


ana 


b 


stc 




rz 




xra 


a 


ret 




process in 


hdstat 


mov 


b. a 



;Read sector command 



;Move four bytes 



; Prepare header 



;Move 4 bytes 



; Issue write sector command 



;Wait for command to finish 







am 


opdone 


» 




jz 


process 






mvi 


a,dskclk 






out 


hdcntl 


• 




in 


hdstat 






ani 


tmout 






stc 




• 




rnz 








in 


hdreslt 






ani 


retry 


• 




stc 
rnz 








xra 


a 


• 




ret 






hdprep 


in 


hdstat 


m 




ani 
stc 
rnz 


drvrdy 


m 




mvi 


a,isbuff 






out 


hdcmnd 






call 


build 


m 




ori 


0ch 






out 


hdfunc 






Ida 


head 






out 


hddata 






call 


drvptr 






mov 


a,m 






out 


hddata 






ana 


a 






mvi 


b,80h 






jz 


zkey 






mvi 


b,0 




zkey 


mvi 


a,0 




hdsectr 


equ 


$-1 






out 


hddata 






mov 


a,b 






out 


hddata 






mvi 


a,dskclk 






out 


hdcntl 






mvi 


a,wenabl 






out 


hdcntl 






xra 


a 






ret 






drvptr 


lhld 
xchg 


hddisk 






mvi 


d,0 






lxi 


h, drives 






dad 


d 






ret 






build 


mvi 


a,0 




head 


equ 
ral 
ral 
ral 
ral 


$-1 






ori 







hddisk 


equ 


$-1 






xri 


0f0h 






ret 






drives 


equ 


$ 






rept 


maxhd 






db 


0ffh 



; Timed out ? 



;Any retries ? 



; Initialize pointer 



;Form head byte 
;Form track byte 



;Form sector byte 



endm 
endif 

***************************************************************** 

* * 

■'* Xlt tables (sector skew tables) for CP/M 2.0. These tables * 

* define the sector translation that occurs when mapping CP/M * 

* sectors to physical sectors on the disk. There is one skew * 

* table for each of the possible sector sizes. Currently the * 

* tables are located on track sectors 6 and 8. They are * 

* loaded into memory in the Cbios ram by the cold boot routine. * 

* * 

***************************************************************** 

if max flop ne 

xltl28 db 

db 1,7,13,19,25 

db 5,11,17,23 

db 3,9,15,21 

db 2,3,14,20,26 

db 6,12,18,24 

db 4,10,16,22 

xlt256 db 

db 1,2,19,20,37,38 

db 3,4,21,22,39,40 

db 5,6,23,24,41,42 

db 7,8,25,26,43,44 

db 9,10,27,28,45,46 

db 11,12,29,30,47,48 

db - 13,14,31,32,49,50 

db 15,16,33,34,51,52 

db 17,18,35,36 

xlt512 db 

db 1,2,3,4,17,18,19,20 

db 33,34,35,36,49,50,51,52 

db 5,6,7,8,21,22,23,24 

db 37,38,39,40,53,54,55,56 

db 9,10,11,12,25,26,27,28 

db 41,42,43,44,57,58,59,60 

db 13,14,15,16,29,30,31,32 

db 45,46,47,48 

xltl24 db 

db 1,2,3,4,5,6,7,8 

db 25,26,27,28,29,30,31,32 

db 49,50,51,52,53,54,55,56 

db 9,10,11,12,13,14,15,16 

db 33,34,35,36,37,38,39,40 

db 57,58,59,60,61,62,63,64 

db 17,18,19,20,21,22,23,24 

db 41,42,43,44,45,46,47,48 

***************************************************************** 

* * 

* Each of the following tables describes a diskette with the * 

* specified characteristics. * 

* * 

************************************ ** *************************** 

***************************************************************** 

* * 

* The following DPB defines a diskette for 128 byte sectors, * 

* single density, and single sided. * 

* * 



• 
• 



i^nnnnnnnnnnnn<***innnc**** * *************************************** 



dpbl28s dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 
db 



26 
3 

7 



242 

63 

0c0h 



16 

2 

lh 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

log2 

8 if 



sectors/ track 



# 

• 



(#cpm sectors/physical sector) -1) + 
(#bytes per sector/128) + 1 + 
double sided. 



***************************************************************** 

* 

* The following DPB defines a diskette for 256 byte sectors, 

* double density, and single sided. 



# 



pb256s dw 


52 


db 


4 


db 


15 


db 





dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


12h 



***************************************************************** 

CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) -1) + 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 

***************************************************************** 

* * 

* The following DPB defines a diskette as 512 byte sectors, * 

* double density, and single sided. * 

* * 

***************************************************************** 

CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) -1) + 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 

***************************************************************** 

* * 

* The following DPB defines a diskette as 1024 byte sectors, * 

* double density, and single sided. * 

* * 
***************************************************************** 






• 








dpb512s dw 


60 




db 


4 


• 


db 


15 




db 







dw 


280 


• 


dw 


127 




db 


0c0h 




db 





m 


dw 


32 




dw 


2 




db 


33h 



dol024s dw 



64 



•CP/M Sectors /track 



db 


4 


db 


15 


db 





dw 


299 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


74h 



BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 



-1) + 



# 

• 

• 



***************************************************************** 

* * 

* The following DPB defines a diskette for 128 byte sectors, * 

* single density, and double sided. * 

* * 

***************************************************************** 



dpbl28d dw 


52 


db 


4 


db 


15 


db 


1 


dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


9h 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* The following DPB defines a diskette as 256 byte sectors, * 

* double density, and double sided. * 

* * 

***************************************************************** 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* The following DPB defines a diskette as 512 byte sectors, * 

* double density, and double sided. * 

* * 

***************************************************************** 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 



dpb256d dw 


104 


db 


4 


db 


15 


db 





dw 


486 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


lah 



• 



dpb512d dw 


120 


db 


4 


db 


15 


db 





dw 


561 


dw 


255 


db 


0f0h 


db 






# 



dw 


64 


dw 


2 


db 


3bh 



• 



• 

m 



;CKS 
;OFF 



***************************************************************** 

* * 

* The following DPB defines a diskette as 1024 byte sectors, * 

* double density, and double sided. * 

* * 
***************************************************************** 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* The following DPB's are for the standard format to be * 

* compatable with older versions of the Cbios . * 

* * 
***************************************************************** 



dpl024d dw 


128 


db 


4 


db 


15 


db 





dw 


599 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


7ch 


end if 





if 

if 
if 
dpbhdl dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 
db 



dpbhd2 dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 
db 



dpbhd3 dw 
db 
db 
db 



stdlog eq 

maxhd ne 

m26 ne 

1024 

5 

31 

1 

1973 

511 

0ffh 

0ffh 



1 

33h 



1024 

5 

31 

1 

1973 

511 

0ffh 

0ffh 



64 

33h 



1024 

5 

31 

1 



;Use standard format 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 

CP/M sectors/ track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) 

log2(#bytes per sector/ 128) + 1 + 

8 if double sided. 

CP/M sectors/track 

BSH 

BLM 

EXM 



-1) + 



-1) + 



m 

m 



dw 


1973 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


127 


db 


33h 


end if 




if 


ml0 ne 


dpbhdl dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1269 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


33h 


dpbhd2 dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1280 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


122 


db 


33h 


endif 




if 


m20 ne 


dpbhdl dw 


672 


db 


5 


db 


31 


db 


1 


dw 


2015 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


33h 


dpbhd2 dw 


672 


db 


5 


db 


31 


db 


1 


dw 


2015 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


98 


db 


33h 



DSM 
;DRM 
;AL0 
;AL1 
; CKS 
; OFF 

;16*((#cpm sectors/physical sector) 
;log2(#bytes per sector/128) + 1 + 
;8 if double sided. 



-1) + 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

log2 

8 if 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

log 2 

8 if 



sec tors/ track 



(#cpm sectors/physical sector) 
(#bytes per sector/ 128) + 1 + 

double sided. 

sectors/ track 



-1) + 



• 
• 



(#cpra sectors/physical sector) -1) + 
(#bytes per sector/ 128) + 1 + 
double sided. 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*(( 

log2( 

8 if 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*(( 

log2( 

3 if 



#cpm sectors/physical sector) -1) + 
#bytes per sector/ 128) + 1 + 
double sided, 
sec tor s/ track 



#cpm sectors/physical sector) 
#bytes per sector/ 128) + 1 -t- 
double sided. 



•1) + 



dpbhd3 



• 
• 



dw 


672 


db 


5 


db 


31 


db 


1 


dw 


1028 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


195 


db 


33h 


endif 




endif 




endif 





cp/m 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log 2 

8 if 



sec tors/ track 



(#cpm sectors/physical sector) 
(tbytes per sector/ 128) + 1 + 
double sided. 



-1) + 



• 

• 



***************************************************************** 

* * 

* The following DPB's are used when the user selectes the * 

* number of logical drives. These macros divide evenly the * 

* space per logical drive where the standard format tries. * 

* to create the least amount of logical drives with the * 

* most space per logical drive. * 

* * 

***************************************************************** 



• 
# 



if 



stdlog ne 



mdpbhd macro 


l,d 




dpbhd&l dw 


secpt 


£>-7"2- 


db 


bsh S 


db 


blm 3 


/ 


db 


exm 1 




if 


ldsk ne 


dw 


(totbls/logdsk) 


else 






dw 


(totbls/logdsk)-l 


endif 






dw 


drm S\ ' 




db 


al0 ff 




db 


all F/r 




dw 


cks 




dw 


(tracks/logdsk)*&d+] 


db 


slog 




endm 






if 


maxhd ne 


if 


ml0 ne 





secpt 


equ 


336 


totbls 


equ 


2562 


tracks 


equ 


244 


endif 






if 


m20 ne 





secpt 


equ 


672 


totbls 


equ 


5124 4LC< 


tracks 
endif 


equ 


(244) 


if 


m26 ne 





secpt 


equ 


1024 


totbls 


equ 


6464 


tracks 


equ 


202 


endif 










; Reserved cpm track 



ml 



7 



; Sectors per track 

; Total blocks (4096 byte) 

; Total tracks 



y C/?A<\ lUky/C Z?c/DlS f£As H$ Sllty Seen? 



6L0CKS IjxtlouPs) 



60! ^ 



QLiL 





bsh 


equ 


5 




blra 


equ 


31 




exm 


equ 


1 




drra 


equ 


511 




a!0 


equ 


0ffh 




all 


equ 


0ffh 




cks 


aqu 







slog 


equ 


33h 


ldsk 


set 









rept 


maxhd 




dpbdrv 


set 









rept 


stdlog 






mdpbhd 


%ldsk,' 


fc dpbdrv 


ldsk 


set 


ldsk+1 




dpbdrv 


set 


dpbdrv+1 




endm 








endm 








end if 








end if 







***************************************************************** 

* * 

* CP/M disk parameter headers, unitialized. * 

* * 

***************************************************************** 





if 


stdlog eq 


neader 


macro 


nd , dpb 




dw 







dw 


0,0,0 




dw 


dirbuf 




dw 


dpb 




dw 


csv&nd 




dw 


alv&nd 




endm 





; Translation table filled in later 

; Scratch 

; Directory buffer 

;DPB filled in later 

; Directory check vector 

; Allocation vector 



else 






header 


macro 


nd , dpb , dpno 




dw 







dw 


0,0,0 




dw 


dirbuf 




dw 


dpb&dpno 




dw 


csv&nd 




dw 


alv&nd 




endm 






endif 





.•Translation table filled in later 

7 Scratch 

; Directory buffer 

;DPB filled in later 

; Directory check vector 

.•Allocation vector 



dpbase equ 





if 


stdlog eq 




dn 


set 









if 


first 






rept 


maxhd 


;Generat 




header 


%dn,dpbhdl 


• 


dn 


set 


dn+1 






header 


%dn,dpbhd2 




dn 


set 


dn+1 






if 


(m26 ne 0) or 


(m20 ne 0) 




header 


%dn,dpbhd3 




dn 


set 

endif 

endm 


dn+1 






rept 


maxflop 






header 


%dn.0 





Generate Hard Disk DPH's followed 
by Floppy DPH's 



• 



dn 



dn 

dn 
dn 

dn 



dn 



dn 



dn 



dn 



dn 

dn 
dn 

dn 



set 

endra 

else 

rept 

header 

set 

endra 

rept 

header 

set 

header 

set 

if 

header 

set 

endif 

endm 

endif 

endif 

if 

if 

set 

rept 

rept 



dn+1 



max flop 

%dn,0 

dn+1 



.•Generate Floppy DPH's followed by 
Hard Disk DPH's 



rnaxhd 

%dn,dpbhdl 

dn+1 

%dn,dpbhd2 

dn+1 

(m26 ne 0) or (m20 ne 0) 

%dn,dpbhd3 

dn+1 






stdlog ne 
first 
max flop 
maxhd 
stdlog 






header %dn,dpbhd, % (dn -max flop) ;by Floppy DPH's 

set dn+1 

endm 

endm 

set 

rept maxflop 

header %dn,0,0 

set dn+1 

endm 



; Generate Hard Disk DPH's followed 



; Floppies always start at zero 



else 



.•Generate floppies before hard disk 






set 

rept maxflop 

header %dn,0,0 

set dn+1 

endm 

set maxflop 

rept maxhd 

rept stdlog 

header %dn,dpbhd, %(dn-maxf lop) 

set dn+1 

endm 

endm 

endif 

endif 



buffer equ $ 
*************************************************** ************** 



* Signon message output during cold boot. 
**************************************** ****************** ******* 



* 
* 



m 
m 



prompt db 
db 
db 
db 
db 
db 



80h, clear ; Clean buffer and screen 

acr,alf ,acr,alf ,acr,alf 

'Morrow Designs ' 

'0'+msize/10 ;CP/M memory size 

' 0'+{msize mod 10) 

'K CP/M ' ;CP/M vara inn nnmhpr 






db 


cpmrev/10+'0' 
■ i 


KID 

db 


• 
(cpmrev mod 10)+'0' 


db 


' , Cbios rev ' 


db 


revnum/l0+'0' , ' . ' 


db 


revnum mod 10+' 0' 


if 


maxhd ne 


db 


■ i 

• 


db 


mrev/l0+'0' 


db 


mrev mod 10+' 0' 


endif 




if 


ml0 


if 


fujitsu 


db 


• pi 


else 




db 


'M' 


endif 




endif 




db 


acr,alf 


db 


' For ' 


if 


max flop ne 


db 


'a Disk Jockey 2D/I 


endif 




if 


(maxhd ne 0) and (r 


db 


1 and ' 


else 




db 


■ i 

• 


endif 




if 


maxhd ne 


if 


maxhd eq 1 


db 


'a ' 


endif 




if 


maxhd eq 2 


db 


'two ' 


endif 




if 


maxhd eq 3 


db 


'three ' 


endif 




if 


maxhd eq 4 


db 


' four ' 


endif 




if 


mrev eq 10 


if 


fujitsu 


db 


'Fujitsu ' 


else 




db 


' Memorex * 


endif 




db 


'M10 ' 


endif 




if 


mrev eq 20 


db 


'Fujitsu M20 ' 


endif 




if 


mrev eq 26 


db 


'Shugart M26 ' 


endif 




db 


'hard disk' 


if 


maxhd ne 1 


db 


's' 


endif 




db 


1 1 



; Cbios revision number 



m 
♦ 



end if 
db 

if 
db 
endif 

if 

if 

db 

else 

db 

endif 

endif 

if 

db 

endif 

db 

if 
db 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

db 

else 

db 

endif 

db 

db 



acr,alf 

(contyp eq 0) or (contyp eq 1) 
'Nothing' , acr, alf 



contyp eq 2 
multr3 
'Multi I/O' 

' Decision I * 



contyp eq 3 
'2D/B* 



' as console' 
lsttyp ge 2 



lsttyp eq 2 
' serial' 

lsttyp eq 3 

'CTS protocol serial' 

lsttyp eq 4 

' DSR protocol serial' 

lsttyp eq 5 

'Xon/Xoff protocol serial' 

lsttyp eq 6 
'Centronics parallel' 

lsttyp eq 7 

'Diablo HyType II parallel' 



' printer as LST: ' 



# 



acr, alf 





;End of message 



***************************************************************** 

* * 

* Utility routine to output the message pointed at by H&L, * 

* terminated with a null. * 

* * 

***************************************************************** 






message 


mov 


a,m 




inx 


h 




ora 


a 




rz 






push 


h 




mov 


c, a 




call 


cou 



;Get a character of the message 

;Bump text pointer 

; Test for end 

; Return if done 

; Save pointer to text 

; Output character in C 



pop 
jmp 



h 
message 



? Restore the pointer 

; Continue until null reached 



***************************************************************** 

* * 

* Cboot is the cold boot loader. All of CP/M has been loaded in * 

* when control is passed here. * 

* * 

***************************************************************** 



cboot lxi 



if 



sp , tpa 



xra 


a 


sta 


cwf lg 


sta 


group 


if 


max flop ne 


lxi 


h,djram 


lxi 


d, origin 


mvi 


b,33h 


call 


mo v lop 


endif 




mvi 


a,intioby 


sta 


iobyte 


if 


contyp ne 


call 


tinit 


endif 




if 


lsttyp ne 


call 


linit 


endif 




lxi 


h , prompt 


call 


message 


xra 


a 


sta 


cpmdrv 


sta 


cdisk 


if 


(maxflop ne 


sta 


flopflg 


endif 




lxi 


h,bios+3 


shld 


bios+1 


jmp 


gocpm 



7 Set up stack 

; Clear cold boot flag 

; Clear group select byte 

;If 2D/B is there then make RAM copy 
; of the jump table. 

;Size of jump table 
;Copy table 



• 
# 



;Do not call tinit for PROM's 
; Initialize the terminal 



;Do not call linit for PROM's 
; Initialize the list device 



?Prep for sending signon message 
;Send the prompt 
; Select disk A 



contyp eq 2 



; Patch cold boot to warm code 



;Multi I/O, Decision I 



***************************************************************** 

* * 

* Terminal initilization routine. This routine reads the sense * 

* switch on the WB-14 and sets the speed accordingly. * 

* * 

***************************************************************** 



tinit 



Ida 


group 


on 


congrp 


out 


grpsel 


in 


rbr 


in 


rbr 


xra 


a 


out 


lsr 


out 


ier 



;Get group byte 

; Select console device 



; Clear reciever buffers 

; Clear status 
;Set no interrupts 






btab 



if 


not multr3 


Ida 


group 


out 


grpsel 


in 


sensesw 


ani 


0e0h 


rlc 




rlc 




rlc 




cpi 


7 


push 


psw 


Ida 


group 


on 


congrp 


out 


grpsel 


pop 


psw 



DZ 



valid 



lxi 


h,btab 


add 


a 


mov 


e,a 


mvi 


d,0 


dad 


d 


mov 


e,m 


xnx 


h 


mov 


d,m 


jmp 


setit 


dw 


1047 


dw 


384 


dw 


96 


dw 


48 


dw 


24 


dw 


12 


dw 


6 


endif 





;Multi I/O has no sense switches 

;Get group byte 

; Select group zero to read sense switch 

;Get sense switch. 

? Mask in upper three bits 



;Move into lower 3 bits 

; check for sense = 7 

;Save value 

;Get group byte 

;Reselect serial port group 



;Do default rate 

; Pointer to baud rate table 
; Table of words so double 
;Make a 16 bit number into (de) 

;Get a pointer into baud rate table 

;Get lower byte of word 

; Point to high byte of word 

;Get upper byte, (de) now has divisor 

;Set baud rate. 



110 Baud 


000 


300 


001 


1200 


010 


2400 


011 


4800 


100 


9600 


101 


19200 


110 






***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 



The following is a list of valid baud rates. The current 
baud rate is checked on cold boot. If it is not in the 
vtab table then the baud rate will be set from the defcon 
word found below the Cbios jump table. If the user 
happens to have a weird baud rate that is not in this 
table or is looking for a way to save space then entries 
can be added or deleted from the table. 



* 
* 
* 

* 
* 
* 
* 
* 
* 



***************************************************************** 



vtab 






dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



2304 

1536 

1047 

857 

768 

384 

192 

96 

64 

58 

48 

32 

24 

16 

12 

6 



50 baud 

75 

110 

134.5 

150 

300 

600 

1200 

1800 

2000 

2400 

3600 

4800 

7200 

9600 

19200 



svtab 



eau 



(S-vtah} 11 



1 Lenath of the vtab table 



***************************************************************** 

* * 

* Valid checks if the divisor latch is a reasonable value. * 

* If the value seems off then it will get the default baud * 

* rate from defcon and jump to setit. * 

* * 

***************************************************************** 



valid 



vloop 



mvi 

out 

in 

mov 

in 

mov 

mvi 

out 

lxi 

mvi 

mov 

cmp 

jnz 

inx 

mov 

cmp 

jz 

dcx 

inx 

inx 

dcr 

jnz 



nvalid lhld 
xchg 



vskip 



setit 



done 



tinit 



linit 



mvi 
out 
mov 
out 
mov 
out 
mvi 
out 

xra 
out 
ret 

endif 

if 

call 
rnz 
call 
jmp 

endif 

if 

Ida 
ori 
out 
mvi 
out 



a,dlab+wls0+wlsl+stb 

lcr ;Access divisor latch 

dll ;Get lower divisor value 

e,a 

dim ;Get upper divisor value 

d,a 

a,wlsl+wls0+stb 

lcr 

;Valid baud rate table 

; Length of the baud rate table 



h, vtab 

c, svtab 

a,e 

m 

vskip 

h 

a,d 

m 

done 

h 

h 

h 

c 

vloop 

defcon 



; Check low byte 
; First byte is bad 



; Check high byte 
;Baud rate is OK... 

; Skip to next entry 

;Bump entry counter 



;Get default baud rate 



Do cleanup 



a,dlab+wlsl+wls0+stb ; Enable divisor access latch 

lcr ;Set the baud rate in (de) 

a , d 

dim ;Set upper divisor 

a,e 

dll ; Set lower divisor 

a, wlsl+wls0+stb 

lcr 



a 
lsr 



contyp eq 3 
djtstat 

djcin 
tinit 



; Clear status register 

;Multi I/O, Decision I 

;2D/B console initialization 

; Clean input buffer 
;A11 empty 



; 2D/B console 
(lsttyp ge 2) and (lsttyp le 5) ; Serial Multi I/O list drivers 



group 

lstgrp 

grpsel 

a,dlab 

lcr 



;Get group byte 

; Select list device 

; Access divisor latch 



# 



Unit 



dloop 



lhld 


deflst 


raov 


a,h 


out 


dim 


mov 


a,l 


out 


dll 


mvi 


a, stb+wls0+wlsl 


out 


lcr 


in 


rbr 


xra 


a 


out 


ier 


ret 




endif 




if 


lsttyp eq 6 


Ida 


group 


ori 


denable 


sta 


group 


out 


grpsel 


xra 


a 


out 


daisil 


mvi 


a,d9+dl0 


out 


daisi0 


mvi 


a, 10 


dcr 


a 


jnz 


dloop 


mvi 


a,dll+d9+dl0 


out 


daisi0 


ret 




endif 




if 


lsttyp eq 7 



?Get LST: baud rate divisor 
;Set upper baud rate 

; Clear input buffer 
;No interupts 

;Multi I/O parallel, Centronics 

;Get group byte 

;Set driver enable bit 

; Select group zero with drivers enabled 

;Zero out data 

;Set strobe high, init low 

;Wait about 50uS for printer to initilize 



; Diablo HyType II 



************************************************************** 

* * 

* Initialize Diablo HyType printer. If the printer fails * 

* to initialize then the output drivers will be turned off * 

* and any attempts to print will result in redirection to * 

* the console. * 

* * 
*********** * * **************************************************** 



linit 



dloop 



linit 



if 


multr3 


Ida 


group 


on 


denable 


out 


grpsel 


ori 


restore 


out 


grpsel 


ravi 


a, 10 


dcr 


a 


jnz 


dloop 


Ida 


group 


out 


grpsel 



else 

Ida 
out 
mvi 
out 
mvi 
out 
mvi 
out 



;Multi I/O initialization 

;Get group byte 

;Add driver enable bit 

; Toggle restore high 

;Hold line up for 50uS 

;Turn denable and restore off 
; Mother board initialization 



group ;Get group byte 

grpsel ; Select group zero 

a,pselect+rlift ;Set select line active, rlift not active 

elk 

a,0ffh 

daisi0 

a,0f fh-restore ; Strobe restore bit low 

daisi0 



dloop 



mvx 
dcr 
jnz 
nivi 
out 
endif 



a, 10 

a 

dloop 

a,0ffh 

daisi0 



,-Wait about 50uS 



; Raise restore back up 






xra 

Out 

if 

Ida 

ori 

out 

mvi 

out 

else 

mvi 

out 

endif 

linit9 lxi 
shld 

lxi 
shld 

lxi 

shld 

shld 

shld 

shld 

shld 

call 

xra 

sta 
sta 
sta 

ret 

endif 

db 

ds 

if 
ds 
endif 



a 
daisil 



; Clear data buffers 
; Lift ribbon 



multr3 

group 

denable 

grpsel ; Re-enable the drivers 

a,0ffh-restore ;Pull -ribbon lift down 

daisi0 



a,pselect 
elk 



h,hinc/cperi 
hini 

h, vinc/lperi 
vmi 

h,0 

vpos 

dlvpos 

hpos 

dlhpos 

lmar 

clrall 

a 

kludge 
dirf lg 
grhflg 



; Re-enable drivers and lift ribbon 



;Save hmi = 120/ (characters per inch) 

;Save vmi = 48/ (lines per inch) 
; Other variables default to zero 






; Clear the TAB array 
; Reset TAB clear byte 



0,0ffh,0 

512-($-buf fer) ;Maximum size buffer for 512 byte sectors 



maxflop ne 
512 



; Additional space for floppies Ik sectors 



***************************************************************** 

* * 

* Cbios ram locations that don't need initialization. * 

* * 
***************************************************************** 



cpmsec dw 

cpmdrv db 

cpmtrk db 

truesec dw 

bufdrv db 

buftrk db 

bufsec dw 















;CP/M sector # 

;CP/M drive # 

;CP/M track # 

;Disk Jockey sector that contains CP/M sector 

;Drive that buffer belongs to 

; Track that buffer belongs to 

.•Sector that buffer belonas to 



dirbuf ds 



128 



; Directory buffer 



alloc 


macro 


nd, al, cs 


alv&nd 


ds 


al 


csv&nd 


ds 
endm 


cs 



dn 



set 









if 


stdlog eq 




if 


not first 




rept 


max flop 




alloc 


%dn, 75,64 


dn 


set 


dn+1 




endm 






rept 


maxhd 




if 


m26 ne 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 
endif 


dn+1 




if 


ml0 ne 




alloc 


%dn, 159,0 


dn 


set 


dn+1 




alloc 


%dn, 161,0 


dn 


set 

endif 


dn+1 




if 


m20 ne 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 129,0 


dn 


set 

endif 

endm 


dn+1 



else 



• 




rept 


maxhd 






if 


m26 ne 






alloc 


%dn, 247,0 


» 


dn 


set 


dn+1 




alloc 


%dn, 247,0 




dn 


set 


dn+1 


m 




alloc 


%dn, 247,0 


dn 


set 


dn+1 






endif 




m 




if 


ml0 ne 






alloc 


%dn, 159,0 




dn 


set 


dn+1 


m 




alloc 


%dn, 161,0 




dn 


set 
endif 


dn+1 


m 




if 


m20 ne 






alloc 


%dn, 252,0 




dn 


set 


dn+1 


• 




alloc 


%dn, 252,0 




dn 


set 


dn+1 






alloc 


%dn, 129,0 


• 


dn 


set 
endif 


dn+1 



dn 



dn 



dn 



dn 



dn 



endra 

rapt 

alloc 

set 

endm 

end if 

endif 

if 

if 

set 

rept 

rept 

alloc 

set 

endm 

endm 

endif 

if 

set 

rept 

alloc 

set 

endm 

endif 

endif 



maxf lop 

%dn,75,64 

dn+1 



stdlog ne 

maxhd ne 

max flop 

maxhd 

stdlog 

%dn, ( (totbls/logdsk)/8)+l,0 

dn+1 



;Make up hard disk allocation vectors 
;Hard disks always start after floppies 



max flop ne 



maxf lop 

%dn,75,64 

dn+1 



yMake up floppy allocation vectors 
.•Floppies first 



end 



